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Os ofrecemos un truco con 
el que podéis realizar "VIDEO 
INVERSO" de manera casi ins¬ 
tantánea. Con sólo hacer una 
llamada a la ROM de vuestro 
AMSTRAD el sistema operati¬ 
vo se encarga de invertir los 
colores de tinta y fondo con 
que aparecen los textos en la 
pantalla del monitor. 

Valga éste ejemplo como de¬ 
mostración: 


1 

2 

3 

4 

5 

6 

10 

20 

25 

30 

40 


>****************** 
'* PROGRAMA PARA * 
'* INVERTIR TEXTO * 
'* EN LA PANTALLA * 
'****************** 


INDESCOMP 
PASA A MANOS 


CALL &BB9C 
PRINT ••HOLA" 

1=1+1:IF 1=5 THEN 40 


DE AMSTRAD 


GOTO 20 
1=0:GOTO 10 



Con éste pequeño truco podrás proteger tus programas contra cualquier curioso que 
intente listarlo para saber cómo está hecho o para copiarlo. La llamada CALL &BB45 
al sistema operativo se encarga, de un modo "drástico", de evitar que un programa 
pueda ser detenido durante su ejecución. 

Teclea el siguiente ejemplo y podrás comprobarlo: 

10 ’ ************************ 

20 ' * PROTEGER UN PROGRAMA * 

30 ’ ************************ 

40 ' 

50 CALI, &BB45 
60 MODE 1 

70 PRINT "PULSE <ESC> PARA INTERTAR" 

80 PRINT " DETENER EL PROGRAMA 
90 PRINT 

100 PRINT " SIGO FUNCIONANDO "; 

110 GOTO 100 



PROGRAMACION AVANZADA DEL AMSTRAD 



Una de las cualidades más 
importantes del Amstrad CPC 
cq 464 es la facilidad de acceso a 
las rutinas más importantes de 
^ la ROM, sin necesidad de ser 


un programador experimenta¬ 
do. 

Don Thomasson analiza esta 
característica en los primeros 
capítulos del libro de forma cla¬ 
ra y bien estructurada. Diseño 
de pantallas, entradas y salidas 
de cassette, etc., pueden ser 
reducidas a simples llamadas 
de subrutinas. 

Otra de las cualidades más 
interesantes del Amstrad es su 
capacidad para comunicarse 
con el mundo exterior y la op¬ 
ción de ROM externa que per¬ 
miten aumentar la capacidad 
del ordenador. En el libro se ha¬ 
bla de todo esto con detalle, de 
cara a mostrar como aprove¬ 
char mejor todas las posibilida¬ 
des que nos ofrece el Amstrad 
CPC 464. 


Durante la celebración del 25 
certamen de SONIMAG en Barce¬ 
lona en los últimos días del mes de 
septiembre, fue dada a conocer en 
rueda de prensa a los medios infor¬ 
mativos la noticia de la compra del 
100% de las acciones del GRUPO 
INDESCOMP por parte de la firma 
inglesa AMSTRAD PLC de cuyos 
productos, INDESCOMP es distri¬ 
buidor exclusivo en nuestro país. 

Alan Sugar, presidente de AMS¬ 
TRAD PLC, se desplazó hasta Bar¬ 
celona para dar a conocer la noti¬ 
cia de la operación que supone la 
absorción por parte de la compañía 
inglesa del total de la plantilla de 
Indescomp. 

Alan Sugar informó de su propó¬ 
sito de que en un plazo breve fue¬ 
ran construidos en España algunos 
de los componentes de los equipos 
AMSTRAD, lo cual daría un fuerte 
impulso a la empresa. 

El acuerdo, pendiente de aproba¬ 
ción por parte del organismo com¬ 
petente del gobierno español, será 
primado en breve y el coste total 
de la operación podría alcanzar los 
250 millones de libras esterlinas: 
216 a la firma del contrato y el res¬ 
to, en función de los beneficios ob¬ 
tenidos en los primeros 5 años. 
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***** CEFALUS ****** 
* ANGEL GARCIA D. ** 
******************** 


PRESENTACION 



MODE O 

INK O,Os INK 1,26; 

CLS 

BORDEE O 

FOR A—O TO 400 STEP 
PLÜT O,A,2 
DRAWR 650,0 
PL..OT O , A+S , 3 
DRAWR 650,O 
NEXT 

FOR A~0 TO 650 
PLOT A,O,2 
DRAWR O,400 
PLOT A+16,0,3 
DRAWR 0,400 
NEXT 

WINDOW #2,5,15,8,16:PAPER #2,5:CLS 


# 


250 PRINT CHR*<22)+CHR*(1); 

260 LOCATE 7,12 
270 PEINT "CEFALUS"; 

280 PRINT CHRÍ <22)+CHR*(O); 

290 INK 2,7,0 

300 INK 3,O,18 

310 FOR a-1 TO 300 

320 SOUND 1,RND <1)*300,1,15 

330 NEXT A 

340 INK 2,18,7:1NK 3,7,18 

350 FOR a=300 TO 1 STEP -2:SOUND 

)*a,1:SOUND 2,a*2,1:NE X T a 

360 INK 2,7:INK 3,18 

*370 FOR a=i TO 500: NEXT a 

380 MODE 1 


1,RND(1 



Tú eres CEFALUS, un 
ser caracterizado por su 
habilidad e inteligencia a 
la hora de arrebatar a las 
bolas acidas sus cargado¬ 
res de positrones. Para 
moverte por la pantalla 
emplea el JOYSTICK o 
las siguientes teclas: 

Q: arriba 
A: abajo 
O: izquierda 
P: derecha 

Comentario del 
programa 

Este programa emple 
una rutina en C/M que 
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Cefalus 


gestiona el movimiento 
de todas las figuras de la 
pantalla; las 6 bolas ene¬ 
migas; nuestro muñeco y 
el bloque de energía, con 
animación de 2 gráficos. 


10-390. Pantalla de pre¬ 
sentación. Hecha en MO¬ 
DO 0. Se dibuja un entra¬ 
mado. Se abre ua venta¬ 
na en el interior y se im¬ 
prime el título. Se hacen 
algunos sonidos y se pa¬ 
sa a las instrucciones. 


400-470. Subrutina que 
imprime el texto. 


480-590. Se imprimen 
las instrucciones y se es¬ 
pera la pulsación de una 
tecla para continuar. 



#1 

* é 

é 


* m 
*#§ 

■ 


# 







Antes de imprimir este 
mensaje son llamadas 
dos subrutinas encarga¬ 
das de redefinir los gráfi¬ 
cos que se van a usar. La 
segunda introduce el 
C/M en memoria. El mé¬ 
todo usado es meter los 
códigos en hexadecimal 
seguidos en una cadena 
de caracteres, que luego 
se fragmenta de dos en 
dos elementos y se intro¬ 
ducen en memoria. La le¬ 
tra Z es la marca de final. 
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390 GOTO 480 
400 * 

410 * -■ imprime; texto - 
420 ’ 

430 PE INT TAB(20.L EN< a*)/2) :FOR a=1 TO L 

EN (a$) 

440 bÍ=MIDi<aÍ,a,1)sPRINT bi;:IF bí< >" " 
THEN SOUND 1,A,1,15 
450 NEXT a 

460 PRINT:PRINT:FOR a--l TO 200: NEXT a: RE 

TURN 

470 ' 

480 * - INSTRUCCIONES - 
490 * 

500 af="<« CEFALUS >>>":GOSUB 430 
510 PRINT:8$="AYUDA A CEFALUS A EECOJER" 

: GOSIJB 430 

.520 Ai—"LOS CONTENEDORTES DE ENERGIA" : 60 
SUB 430 

530 Aí--" PARA AUMENTAR SU CARGADOR DE POS 
ITRONES.":GOSUB 430 

540 Ai~"PERO TEN CUIDADO CON LAS BOLAS A 
CIDAS":GOSUB 430 

550 PRINT:Ai-"TECLADO (Q.A.O.P> O JÜYSTI 

CK":GOSUB 430 

560 GOSUB 1310:GOSUB 1240 

570 PRINT:Ai="PULSA UNA TECLA PARA EMPEZ 
AR":GOSUB 430 

580 Ai-INKEYi:IF INKEYÍ="" THEN 580 
590 * 

600 ' - INICIAL IZA VARIABLES -■ 

610 ' 

620 V=3 
630 MODE 1 

640 INK 0,26:INK 1,0:INK 2,15:INK 3,2 
650 PAPER O:BOEDER 26 
660 CLS 

670 WINDOW 1,40,4,25:PEN 1:CLS 

680 WI NDOW #1,1,40,1,3: PAPER# 1,2: PEN# .1,0 

:CLS#1 

690 ' 

700 ' - MOVIMIENTO MALOS - 
710 ' 

720 GOSUB 1190 
730 RESTORE 1070:D=40000 
740 READ A:POKE D,A:D=D+1 
750 IF A—255 THEN GOTO 770 
760 GOTO 740 

770 DEFINT X,Y:X=10:Y=20 

780 H=1 +1NT(RND*19):1=1+1NT<RND*39>:POKE 
40015,H:POKE 40016,1:FOR B=100 TO 200 S 
TEP 10:SOUND 2,B,1,15:NEXT B 
790 GOSUB 1190 
800 ' 

810 ' - BUCLE PRINCIPAL. - 

























List 


920 ' 

830 CALI. 32768 

840 IF PEEK(39999)~1 THEN GOSUB 970:GOTO 
630 

850 IF INKEY <67)=0 OR J0Y(0) = 1 THEN X=X- 
1:TF X<1 THEN X=1 

860 IF INKEY(69)=0 OR J0Y(0)=2 THEN X = X + 
1sIF X >20 THEN X=20 

870 IF INKEY(34)=0 OR JOY <0)-4 THEN Y=Y~ 
1:IF Y<1 THEN Y=1 

880 IF INKEY(27)=0 OR JOY(O)=8 THEN Y=Y+ 

1:IF Y>39 THEN Y=39 

890 POKE 40003,X:POKE 40004,Y 

900 IF X=H AND Y==I THEN P=P+15:G0T0 780 

910 IF X +1 =H AND Y+1 = I THEN P==P+15:G0T0 

780 

920 GOTO 830 
930 ' 

940 ' - PIERDE VIDA - 
950 ' 

960 DATA 1,10,10,2,1,20,2,1,15,1,172,176 

970 POKE 40010,180: POKE 4001.1 , 184 

980 FOR A=0 TO 100 STEP 10:SOUND 129,RND 

< 1) *300,20,15,0,0,31: CALI. 32768:NEXT A 

990 V=V~-1: IF V>=0 THEN RETLJRN 

1000 FOR a=0 TO 40:SOUND 1,A*1G,10,15: A* 

«INKEY*:NEXT a 

1010 PEN 1:LOCATE 16,11:PRI NT"GANE OVER" 
1020 IF INKEY*--"" THEN 1020 
1030 RUN 620 
1040 ' 

1050 ' -- POSICIONES INICIALES - 
1060 ' 

1070 DATA 
4 

1080 DATA 
8 

1090 DATA 
6 

1100 DATA 

n 
JL 

1.110 DATA 
6 

1120 DATA 
2 

1130 DATA 
1140 DATA 
1150 DATA 
1 160 ' 

1170 ' - MARCADORES - 
1 180 ' 

1190 LOCATE#1,2,2:PRINT#1,"POSITRONES:"; 
P;TAB < 26 >;"CEFALUS:";V 
1200 RETURN 
1210 ' 


3,1O,20,10,20,0,0,0,0,1,160,16 

3,10,10,10,1O,0,0,0,0,2,168,16 

1,12,12,1,2,20,0,1,39,2,172,17 

1,15,15,0,2,20,1,2,39,3,176,17 

1,10,10,2,2,20,2,2,39,2,172,17 

1,10,25,2,3,18,0,5,35,3,176,17 

1,5,30,0,1,20,2,1,39,2,172,176 
1,5,10,2,1,20,2,1,39,2,172,176 



Cuando introduzcas la 
zona de los DATAS ten 
mucho cuidado, pues un 
error aquí podría resultar 
fatal. 


600-690. Se inicializan 
las variables. Vidas = 3. 
Modo de pantalla el 1. Se 
definen dos ventanas; 
una para el juego y otra 
para los marcadores. 


700-800. Se imprimen 
los marcadores. Y los da¬ 
tos de los movimientos 
de los malos son introdu¬ 
cidos en la memoria. Los 




DATAS leídos son los de 
las líneas 1070-1150. La 
forma en que se codifica 
es: 

Primer byte: 3. Indica 
que es un objeto en cuyo 
movimiento va a ser con¬ 
trolado desde BASIC y 

los datos son interpreta¬ 
dos de la siguiente forma: 


3, X, Y, XB, YB, O, O, 
O, O, Color, Animación 1, 
Animación 2. XB e YB 
son las coordenadas de 
borrado. 


MUNDO AMSTRAD 7 









Y', color, Al, A2. 

255. Marca de final de 
datos. 


810-920. Bucle princi¬ 
pal del juego. Se llama en 

primer lugar a la rutina de 
movimiento. Luego se 
inspecciona el byte de 
ohoque, que si es 1, he¬ 
mos chocado. 

Luego se lee el teclado 
y el joystick para modifi¬ 
car las coordenadas de 
nuestro muñeco si fuera 
necesario. 

Se POKEan las coor¬ 
denadas. 

Se comprueba si coge¬ 
mos la energía. Si la co¬ 
gemos se cambia de sitio 
y se suman 15 puntos. 

940-1030. Se pierde vi¬ 
da. Si son cero se impri¬ 
me GAME OVER. 

1040-1160. DATAS de 
las posiciones iniciales de 
todos los gráficos. 
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1. Gráfico movido por 



! 1220 

' •••■ INTRODUCE C/M ■••• 

la rutina en Código má- 



i 1 o 


quina. Se comprueba 



1 1240 

RESTORE 1640:D-32768 

además si se choca con el 



¡ 1250 

READ A*:N—LEN< AL) ; IF 

gráfico 0 y se indica en la 

. 

w 

i TOEN 


posición de memoria 

#1 


| 1260 

FOR A=1 TO N STEP 2: 

39999. Los datos son ¡n- 

w 

. ■ 


1 A, 2) 


terpretados de la siguien- 

Sj| 

m 

1 1270 

i 

POKE D , VAL. < Bf) : D=D+1 

te manera: 

• t 


¡ 50 



Ü 


| 1280 

* 


§ 

$> 

1 1290 

‘ - REDEFINICION DE 

1, X, Y, incrementoX, 



• 1300 

• 

Tope X, Tope X', Inere- 


■ 

1 1310 

SYMBOL AFTER 160 

mentó Y, Tope Y, Tope 


# 

1 1320 

SYMBOL 160,127,195,1 


* 

.. . 


i m 
# 


*4 # 
»# 

# * * 

#• .# 

15 yi m 

4 . * 

** 

- * • 

•NÜl 

*? 

* £ 


THEN RE 


127,48 

1330 SYMBOL 161,254,195,193,249,217,255, 
254,12 

1340 SYMBOL 162,124,255,207,1O,15,15,30, 
62 

1350 SYMBOL 163,62,254,247,83,243,248,12 
4,0 

1360 SYMBOL 164,127,255,131,159,155,255, 
127,48 

1370 SYMBOL 165,254,255,193,249,217,255, 
254,12 

1380 SYMBOL 166,124,127,239,202,207,31,6 
2,0 

1390 SYMBOL i67,62,255,243,80,240,240,12 
0,124 

1400 SYMBOL 168,255,255,192,192,192,199, 
199,192 

1410 SYMBOL 169,255,255,3,3,3,227,255,31 


1420 SYMBOL 170,192,199,199,192,192,192, 
25¡5 255 

1430 SYMBOL. 171,31,255,227,3,3,3,255,255 


1440 SYMBOL 172,O,15,49,103,79,223,159,1 
91 

1450 SYMBOL 173,O,240,252,254,254,255,25 

ir nc: er 

\.J f V.J --J 

1460 SYMBOL 174,255,255,255,127,127,63,1 
5,0 

1470 SYMBOL 175,255,255,255,254,254,252, 
240,0 

1480 SYMBOL 176,7,28,49,35,103,79,95,95 
1490 SYMBOL 177,224,248,252,252,254,254, 
254,254 

1500 SYMBOL 178,127,127,127,127,63,63,31 
,7 

1510 SYMBOL 179,254,254,254,254,252,252, 
248,224 

1520 SYMBOL 180,33,20,65,23,74,51,159,55 
1530 SYMBOL 181,64,20,161,234,80,202,248 
1 ■ ^ ' 






1540 SYMBOL 
1550 SYMBOL 
0, 132 

1.560 SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
RETÜRN 


182,183,31,83, J. O , 87 
183,236,249,204,82. 


1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1630 
1660 
1670 
.1680 
.1690 
1700 
17.10 
1 720 
1730 
1740 
1730 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 


184 

185 

186.137 

187.137 


137 , 32 , 8 , 34,128 
137 , 32 , 8 , 34,128 
32 , 8 , 34,128 
32 , 8,34 


' - DATAS DEL C/M -- 

DATA 3 E O O323F 9CC D 54 BB 
DATA FD21409CFD7E00FE 
DATA FFC8FE04CAC680FD 
DATA 6E01FD6602FE0228 
DATA 1A3E20CDF5S024CD 
DATA F5S02CCDF58025CD 
DATA F5802DFD7E0OFE03 
DATA CA2A81FD7E03FE01 
DATA 2820 

DATA FE00200D2D7DFDBE 
DATA 042015FD3603O218 
DATA OFFEO22OOB2C7DFD 
DATA BEO52OO4FD36O3OO 
DATA FD7501FD7E06FE01 
DATA 282O F E O O '2 O O D257C 
DATA FDBE072015FD3606 
DATA 0218OFFEO22OOB24 
DATA 7CFD 

DATA B E O 8 2 O O 4 F D 3 6 O 6 O O 
DATA FD7402FD7E09CD90 
DATA BBFD7E0AFD460BFD 
DATA 77OBFD7OOAFD6E01 
DATA FD6602CDF5803C24 
DATA CDF58O252C3CCDF5 
DATA 80243CCDF580FD7E 
DATA OOFEO328O5252DOD 
DATA El80 

DATA FD23FD23FD23FD23 
DATA FD23FD23FD23FD23 
DATA FD23FD23FD23FD23 
DATA C3OC80ED4B419CCD 
DATA 068124CD06812CCD 
DATA 068125CD068.1C9FD 
DATA E5E5F5CD75BBF1F5 
DATA CD5DBBF1E1FDE109 
DATA C5CD 

DATA 188104CD1881OCCD 
DATA 188105CD1881C1C9 
DATA E57CB8C228817DB9 
DATA C22881213F9C3601 
DATA E1C9FD6603FD6E04 
DATA FD7401FD7502C38F 
DATA 8OC39OEAOOOOOOOO 
DATA 1 


1170-1210. Subrutinas 
de impresión de los mar¬ 
cadores. 

1220-1280. Introduce el 
C/M. 

1290-1600. Redefini¬ 
ción de los gráficos. 

1610-2070. Datas del 
C/M. Ojo al introducir¬ 
los!!! 
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GENERADOR DE CARACTERES 
GRAFICOS 



Lo prometido es deuda, y 
como te indicamos el mes 
pasado, aquí te ofrecemos 
el programa mediante el 
cual podréis modificar el 
juego de caracteres gráficos 
de tu AMSTRAD. 

El programa en sí es muy 
sencillo como podrás com¬ 
probar por su longitud, pe¬ 
ro incorpora numerosas op¬ 
ciones que facilitan la edi¬ 
ción de gráficos. Las posibi¬ 
lidades accesibles desde el 
teclado son: 

CURSORES. Las flechas 
del cursor sirven para des¬ 
plazar el "cursor gráfico" a 
través de la rejilla de diseño. 

ENTER. Activa el punto 
de la celdilla, sobre la que se 
halla el cursor gráfico. Es 
decir, lo pinta de tinta (el bit 
correspondiente es punto a 
1 =on). 

DEL. Borra el punto de la 
rejilla posicionado por el 
cursor. Lo pinta de color del 
papel poniendo el bit corres¬ 
pondiente a 0 (posición off). 

S. Graba con el nombre 
del fichero que le proporcio¬ 
nemos, el banco gráfico que 
actualmente reside en la 
memoria. 

L. Carga el banco gráfico 
con el nombre que le de¬ 
mos. 

C. Limpia totalmente la 
parrilla de diseño (CLS), po¬ 
niendo todos los datos a ce¬ 
ro. Los puntos toman el co¬ 
lor del papel. 

I. Introduce el gráfico que 


hemos definido en la celdilla 
en el carácter cuyo código 
indiquemos. Los datos en 
binario son transformados a 
decimal, introducción 
SYMBOL. 

P. Traspasa el gráfico de 
la memoria a la celdilla, per¬ 
mitiéndonos modificarlo. 
Los datos son sacados de la 
memoria e interpretados co¬ 
mo puntos de gráficos. 

E. Hace un "espejo" del 
gráfico en pantalla. Por 
ejemplo, si tenemos una fle¬ 
cha que apunta en dirección 
izquierda (::) y selecciona¬ 
mos esta opción, se trans¬ 
formará en una flecha que 



(OJIOJNMOm&TMIOCrirN)»,' 

' ~c mi ' W»l ♦ ** 

' 'A A >*'/s\*/swr u rw yné*N**» 

aWWÍÜíMHioMfíttm* 

mirará en sentido opuesto a 
la anterior. 

Z. Suprime una ventana 
de instrucciones, donde se 
recuerdan brevemente las 
teclas y las funciones a las 
que corresponden. 

V. Con esta opción obte¬ 
nemos en la rejilla de diseño 
el inverso del gráfico que te¬ 
níamos. Lo que se hace es 
borrar los puntos que están 
activados pintar los puntos 
que tienen el color del pa¬ 
pel. 

X. Nos permite presentar 
en pantalla un gráfico cuyas 
dimensiones excedan de 1 
carácter. Nosotros le pro¬ 
porcionamos el carácter ini¬ 


cial, la altura y la anchura 
del gráfico. El gráfico se im¬ 
prime línea a línea y de iz¬ 
quierda a derecha. 

D. Esta es la opción más 
potente del programa, im¬ 
prime en pantalla los 
SYMBOLS necesarios para 
definir los gráficos com¬ 
prendidos en el margen que 
la introducimos. Este mar¬ 
gen no puede ser superior a 
22 líneas debido a que la 
pantalla, en caso contrario 
hará scroll y perderemos la 
posibilidad de copiar las lí¬ 
neas que se pierdan por la 
parte superior de la pantalla. 

Una vez las líneas estén 
impresas en la pantalla el 
programa se detiene. He¬ 
mos de tener en cuenta, que 
las líneas no se introducen 
en la memoria. La forma de 
meterlas en la memoria en 
forma de programa BASIC, 
consiste en mover el cursor 
hasta el comienzo de cada 
línea, pulsar la tecla COPY 
para irla duplicando (no ha¬ 
ce falta editarla en otro sitio, 
podemos hacerla sobre la 
que ya existe en pantalla). 
Una vez completa se pulsa 
ENTER para que pase a for¬ 
mar parte del programa BA¬ 
SIC. 

Las líneas del programa 
toman números de línea a 
partir de 4 a 9000. Cuando 
quieras grabar este frag¬ 
mento de programa, borra 
las líneas que constituyen el 
GENERADOR DE CARAC¬ 


TERES con DELETE 
10-1220, reenumera las lí¬ 
neas para situarlas en la zo¬ 
na que quieras y grábalo. 
Para unirlo posteriormente 
puedes empezar a teclear tu 
programa teniendo introdu¬ 
cido éste o hacer un MER- 
GE con el bloque grabado. 

O. Produce un efecto de 
animación en MODO 1, 
mostrando varios "gráfi¬ 
cos” consecutivamente 
hasta la pulsación de la te¬ 
cla 9. Consideramos que un 
gráfico es un conjunto de 
caracteres de n líneas por n 
columnas. 

8. Efecto de animación en 
MODO 0. La pantalla es 
borrada durante la anima¬ 
ción y restaurada al pulsar la 
tecla 9 de retorno. 

7. Efecto de animación en 
MODO 2. 

Comentario del 
programa 

El programa consta de 
una única pantalla en la cual 
aparecen: 

— La celdilla de edición. 

— La ventana de intro¬ 
ducciones (representación 
de opciones de animación) y 
entrada de datos, y; 

— Exhibición de los ca¬ 
racteres para conocer cua¬ 
les están definidos y cuales 
no, encabezados por un nú- 
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mero que es el código del 
primer carácter de la línea. 
Tanto para sacar, introducir 
o animar caracteres nos se¬ 
rá necesario proporcionar su 
código. 

Pero pasemos al comen¬ 
tario estructural del progra¬ 
ma: 

10-90. Se fija el comienzo 
del bloque de gráficos en la 
dirección 25000 para sernos 
posible leer y modificar los 
valores. La dirección de co¬ 
mienzo se guarda en la va¬ 
riable GRF, y en GRF2 el 
mismo valor menos 256 pa¬ 
ra eliminar los primeros 32 
caracteres. 

100-140. Pantalla en MO¬ 
DO 1 (texto 40columnas - 4 
colores) y se establecen los 
colores para las tintas. Ade¬ 
más se colorea el borde y se 
definen 3 ventanas para de¬ 
sempeñar las funciones que 
antes comentábamos. 

150-200. Se imprimen las 
instrucciones. Se dimensio- 
nan dos matrices, una de 
caracteres donde almacenar 
ceros y unos que luego se 


transformarán en números 
en decimal. Y una tabla que 
contiene los 8 bytes del grá¬ 
fico. A continuación se di¬ 
buja la tabla de caracteres, 
se ponen a 0 todos los ca¬ 
racteres de la matriz A$ y se 
fijan las coordenadas X, y 
del cursor con sus valores 
iniciales. 

210-480. Bucle principal 
del programa. Se sitúa el 
cursor en sus coordenadas y 
se leen todas las teclas me¬ 
diante las cuales se accede 
a las opciones del progra¬ 
ma, situadas en subrutinas 
llamadas con la instrucción 
GOSUB. 

Aquí se incluyen algunas 
de las opciones cuya breve¬ 
dad no pide el desarrollo de 
una subrutina externa al bu¬ 
cle principal. Estas son las 
opciones de GRABACION, 
CARGA y BORRADO DE 
LA CELDILLA. 

Queremos hacer notar la 
velocidad con que se ejecu¬ 
ta el programa, debido a es¬ 
to, se ha incluido un FOR- 
NEXT que nos sirve como 
pausa, de forma que aque¬ 


llos que prefieran más velo¬ 
cidad en la edición, tendrán 
que reducir el valor del bü- 
cle y los que deseen una edi¬ 
ción más lenta, habrán de 
incrementar el valor de éste 
número. 

490-600. Subrutina que 
imprime las líneas que pasa¬ 
das a programa nos genera¬ 
rán los gráficos. Lo primero 
que hacemos es tomar los 
datos de los caracteres que 



;v->1WKWFC 

viuwiiñ • ... 

' ' u ruk- u rtájsa*«**o» 


han de salir. Luego se impri¬ 
men las líneas SYMBOL y 
se detiene el programa con 
END. Recuerda que al pul¬ 
sar esta opción todos los ca¬ 
racteres redefinidos se ini- 
cializarán. De forma que si 
quieres transformar a pro¬ 
grama un número mayor de 
22 caracteres, tendrás que 
hacerlo en varias veces, gra¬ 
bando en CASSETTE o 


DISCO el banco gráfico an¬ 
tes de pulsar esta opción. 

610-690. Subrutina de in¬ 
troducción de un carácter. 
Se calculan los datos a par¬ 
tir de la tabla binaria, y se in¬ 
troducen con la instrucción 
SYMBOL. 

770-810. Dibuja en panta¬ 
lla el contenido de la matriz. 
Esta rutina es llamada des¬ 
pués de cada transforma¬ 
ción realizada en la tabla pa¬ 
ra que estos cambios que¬ 
den representados en pan¬ 
talla. 

820-860. Subrutina de im¬ 
presión de un gráfico. 

870-900. Subrutina de es¬ 
pejo. 

910-930. Subrutina de in¬ 
versión. 

940-1030. Impresión de la 
tabla de caracteres con sus 
códigos ASCII. 

1040-1140. Impresión de 
las instrucciones. 

1150-1220. Subrutina de 
animación. 


l*t ********************* 

20 * * 

30 * GENERADOR GRAFICO * 

40 ' * * 

30 ' ********** *********** 

60 ' 

70 SYMBOL AFTEP. 256sMEMORY 24999:SYMBOL 

AFrER 32 

80 GRF=HIMEM+1 

90 6RF2=BRF™256 

tOO MODE 1 

110 1 NK 0,26: INK 1,0: INK 2,20: INK 31,8 
120 WINDOW#l , 1 ,8,1 ,8: WINDQW 1,40,9,25:WI 
ND0W#2,1O,40,1,8 
.130 PAPER# 1,2: CLS# 1 : PEN# 1,1. 

140 PORTIER 26 

150 GOSUB 1040 

160 DIM A*(8,8):DIM G<8) 

170 GOSUB 940 

180 POR A* i TO 8:FOR B~1 TO 8:LET A*(A,B 

)—"O":NEX T B 

190 ME X T A 

200 X=1:Y=1 

210 LOCATE#!,Y,X 

220 IF A* ( X , Y) O" THEN F’RINT# 1 , " " ; 

230 IP Aí(X , Y > — " 1 " THEN PRINT#1,CHR*(143 
) ; 

240 IF INKEY(8> =0 THEN Y=Y-1:IF Y<1 THEN 
Y”= 1 

250 IF INKEY(1)=0 THEN Y-Y+l:IF Y>8 THEN 
Y=8 

260 IF INKEY(0)=0 THEN X=X-1:IF X<1 THEN 
X”1 


270 IF INKEY<21=0 THEN X=X+1:IF X>8 THEN 
X~8 

280 IF INKEY<18)=0 THEN AÍÍX,Y)="1" 

290 IF INKEY <79> =0 THEN AÍCX,Y>="0" 

300 LOCATE#1,Y,X 

310 IF A# < X , Y > = " 1 " THEN PRINT#1,CHRi<233 
) ; 

320 IF Ai (X,Y > = "O" THEN PRINT#,! ,CHRÍ <232 
) ; 

330 T*»INKEY* 

340 IF INKEY(60)=0 THEN CLS #2:INPUT #2, 
"NOMBRE:",N*:SAVG Ni,B,GRF,224*8 
350 IF )NKEY<36)=0 THEN CLS #2:INPUT #2, 
"NOMBRE:",Ni: N*=Ni+ ".BIN":LOAD Ni,GRF:SO 
UND 1,150 

360 IF INKEY(61> =0 THEN GOSUB 490 
370 IP INKEY(32)=0 THEN GOSUB 1150 
380 IF INKEY(40)=0 THEN MODE 0:GOSUB 115 
O:RUN 100 

390 IF INKEY(41)=0 THEN MODE 2:GOSUB 115 
O:RUN lOO 

400 IF INKEY(35)=0 IHEN GOSUB 610 
410 IF INKEY(62)=0 THEN CLS#1:GOTO 180 
420 IF INKEY(27)*0 THEN GOSUB 700 
430 IF INKEY(63)«O THEN GOSUB 820 
440 IF INKEY(58)=0 THEN GOSUB 870 
450 IF INKEY(71)=0 THEN GOSUB 1040 
460 IF INKEY(55)=0 THEN GOSUB 910 
470 FOR 7.-1 TO 60: NEXT Z 
480 GOTO 210 

490 CLS#2:PRINT#2,"*** DATAS ***":PRINT# 
2:INPUT#2,"SYMBOL INICIAL:";SI:INPUT#2," 
SYMBOL FI NAL.: " ; BF 
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300 PEN 1:MODE 2 
510 L.=9000+ (2* (SI -32) > 

320 SYMBOL AFTER 256 
530 FOR N=SI ro SF 

540 PRINT L+ <5* (N--SI.) ) s “SYMBOL" ; N; CHR* (8 
550 p==6RF'2+ (N*8) 

560 FOR b=p TO P+7tz*=STR* (PEEK <b)) 

570 PRINT MXD*(z*.2.LEN(z*)-1)}; 

580 NEXT b:PRINT CHR*<8);" " 

590 NEXT n 
600 END 

610 CLS#2:PRINT#2,"*** INTRODUCIR *•**": P 
RINT#2:INPUT#2,"EN QUE CARACTER <32-255) 
: " ¡¡ C 

620 PRINT#2, "CAMBIAMOS: "jCHR*(C> 

630 FOR A=1 TO 8:D*="":F0R Z = 1 TO B:Dt-D 
*+A*(A,Z) : NEXT Z:NU=VAL<"SíX "+!)*) 

640 G(A)=NU 

650 F'OKE GRF2-1+ (C*8) +A,NU: NEXT A 

660 SYMBOL C,6(l),0(2),Q<3),6(4),6(5),G< 

6),G(7),6(8) 

670 GOSUB 1010 

680 F'RIMT#2, "OK. INTRODUCIDO" ; C; " s " j CHR 
t (C) 

690 RETURN 

700 CLS02: PRINT#2, " * ELEGIR *** " : PRI NT 

#2:INPUT#2,"QUE CARACTER (32-233) : "jC 

710 F-GRF2+<C*B>:FOR Z°P TO P+7 

720 Z*»BIN*(PEEK(Z>,8)sFOR N=1 TO 8:A*(Z 

-P+l,N)=mD$(Z*,N,1):NEXT N 

730 NEXT Z 

740 GOSUB 770 

730 PRINT#2, "OK, " ; CHRÍ : (C) ; " EN PANTALLA 


760 RETURN 

770 FOR K=1 TO 8:FOR L.= l TO 8 
780 LOCATE#1,L,K 

790 IF A*(K,L)="0“ THEN PRINT#1,CHR#(32) 

•r 

800 IF A3MK,L)="1" THEN PRINTttl ,CHR* (143 

); 

810 NEXT -L: NEXT K: RETURN 

820 CLS #2:INPUT#2,"CARACTER INICIAL:";C 
830 INPUT #2, "ANCHURA: " ,AN: INPUT #2, "ALT 
URA:",AL 
840 CLS#2 

850 FOR XX=1 TO AL:FOR YY=1 TO AN:LOCATE 
#2,YY,XX:PRINT #2,CHRÍ(C):C-C+l:NEXT YY 
:NEXT XX 
860 R ETURN 

870 FOR K=1 TO 8:FOR L=1 TO 4 

880 z*=A*(K,L) sA*(K,L>=A*(K‘.9~L> :A*(K,9- 

L)=Z$ 

890 NEXT L:NEXT K 


900 GOSUB 770:RETURN 
910 FOR K=1 TO 8: FOR L..= l TO 8 
920 IF A*(K,L>-"0" THEN A*(K,L>="1" ELSE 
Ai (K, L 5 = " O " 

930 NEXT L:NEXT K:GOSUB 770:RETURN 

940 HP="":FOR A=32 TO 71:H*=H*+CHR*(A):N 

EXT A 

950 I*= " " : FOR A=72 TO 111: I$= I*■»•( HRT (A) * 
NEXT A 

960 J*=>""íFOR A=1 12 TO 151 : J*=J*+CHR* <A> 
:NEXT A 

970 K#="":FOR A-152 TO 191:K*=K*+CHR$(A) 
:NEXT A 


980 S POR A- 192 TU 23 1: L*•• I. * H I ¡R.M A> 

:NEXT A 

990 Mí=" " : FOR A-- 23? TO 235: Mí Mi+UI IRT ■ A> 

:NEXT A 


1000 CLS:PRINT:FOR A-32 Tu 253 blEP L-:R 

EN 2SPRINT A:PRINT:NEXT A 

1010 PEN ls LOCATE I .3: PRINT HL:PRINT Us 

PRINT Jí:PRINT K*SPRINT I.TsPRINI Mi 

1020 PEN 1 

1030 RETURN 

1040 CL5#2 

1050 PRINT#2,"MOVIMIENTO CON 1 ELLAS CURG 
OR" 


1060 PRINT#?, 
A " 

1070 PRINT#? 
1080 PR1 NI#2, 
1090 PRINT#2, 
1100 PRINT#2, 
11.10 PRIN I'#2, 
GIMA" 

1120 PRINT#2, 
1130 SOUND 1, 
1140 RETURN 


"ENTER. ENCIENDE DEL. AF'AU 


"I. INTRODUCIR P. ELEGIR" 
"C. BORRA CELDILLA" 

"E. ESPEJO V. INVERTIR" 

"D. DATAS Z. PONE ESTA PA 

"S. SAVE L. LOAD"," 

200,1O 


1150 CLS #2:INPUT #2,"CARACTER INICIALJ * 

,CI: INPtfr #2 , "CUANTOS: " ,C 

1160 INPUT #2,"ANCHURAS“,ANíINPUT #2,"AL 

TURA:",AL 

1170 CLS #2 


1180 CC“CI:FOR J=i TO C 

1190 FOR XX=1 TO ALsFUR YY- I TO ANsiOCAT 
E #2, YY, XX : PRINT #2, CHR* (CC) :CC=CCH:NF XI 
YY:NEXT XX:FOR 0=1 TO JQosNEXT OtNFXT J 
1200 IF INKEY<33)=0 THEN RETURN 
1210 IF INKEY (49>=-0 THEN GOTO 1150 
1220 GOTO 1180 
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ORGANO ELECTRONICO 


10 

’> > > 

y /' 7 7 ,7 y’ 

J, '¡¡. '•>. 

\ '*•, \ ■ 




> > A . 6 . 

Ch .i co 

F.de? < 

Te 

20 * 

— 

— 

--1 n i c: 

i al izac 

i OI 

30 K 

EY 

0,"spee 

d key 

20,1 " 


40 D 

IM 

p (25) 




50 F 

DE 

n=l TÜ 

20 



60 E 

EAD 

per i od 

o 



70 p 

tn) 

=per i od 

o 



80 NEXT 





90 t 

=30 





100 

DA 1 

A 159,1 

50,14 

2 , 134,1: 

/ 1 

, 100 

i 95 

, 89,84, 

80,75 

,71,67, 

63. 

110 

CLS 

:INPUT 

; "con 

acomp. 

<5/ 

: 608 

UB 

5040:SP 

EED K 

EY 1 , 1 : 

IF 

GOTO 

43 

0 EL SE 

60 1 0 

5010 


120 

60 T 

O 1 10 




130 


--- 

lectura del 

tet 

140 

i 

INKEYT 




150 

v=0 




160 

IF 

:i *= " a " 

THEN 

s=l:v=7 


170 

IF 

i $= M w" 

THEN 

s=2:v=7 


180 

IF 

i T--"s" 

THEN 

S ! V / 


190 

IF 

ií="e" 

THEN 

s=4:v=7 


200 

IF 

i*=“d" 

1 HEN 

5=5: v~ 7 


210 

IF 

i T= “ f ** 

THEN 

s--6: v=7 


220 

IF 

i$="t" 

THEN 

5=7 ¡: v=7 


230 

IF 


THEN 

s=8: v=7 


240 

IF 

i*®"y" 

THEN 

5=9:v=7 


250 

IF 

:l T=" h 11 

THEN 

s=10:v= 

7 

260 

IF 

i *•= 11 j " 

THEN 

5=11:v= 

7 

270 

IF 

i " i " 

T'HEN 

3““ 1 2 V*~" 

.... 

/ 

280 

IF 

i"k" 

THEN 

5=13:v= 

7 

290 

IF 

i$="o" 

THEN 

5=14:v= 

7 

300 

IF 

i í="l " 

1 HEN 

5=15:v= 

7 

310 

IF 

i $=*'p" 

THEN 

s=16:v= 

7 

320 

IF 

i $= " : " 

1 HEN 

5=17:v= 

7 

330 

i F 

i " ; " 

THEN 

s=18:v= 

7 

340 

IF 

it=" í " 

THEN 

5=19:v= 

7 

350 

IF 

i T ; = " 3 " 

THEN 

2 v ’•*“ 

7 

360 

IF 

i " “ | 

HEN i 

$=•• •• 


370 

IF 

ASC(i$) 

>48 AND ASC( 

i $ 

8ft 

• H 

i! 

LOC 

;ATE 22, 

13: PE 

¡INI 2$ 


380 

IF 

NOT INT 

:;ey < 1 ) 

AND t> 

2 

□CAI 

E 1 

5,16:PT 

i I NT"T 

EMPO:"; 

60 

390 

IF 

NOT INT 

::EY (8) 

AND t< 

58 


er an 


,119,113,106 

53 

n ) V" • -'•£ - ri c 

a#* 


11 ; aí: CL» 
“5"THEN 


54 THEN z$ 


:: L 


HEN t=t+2: 
LOCA T E 15,1 6: PEINT"TEMPO:";60—T 

410 SO UNI) 1 , p (s) , 3, v 
420 RETURN 

440 g=l:zí="1" 

450 LOCATE 15,13:PEI NT"ACOMP 

460 LOCA TE 15,16:PEINT"TEMPO:";60-T 

470 EVERY 4,1 SOSUB 140 

480 g=-(1*(z$="1") +2* (z$="2")+3* <zi="3") 



Con este programa converti¬ 
rás tu AMSTRAD en un órga¬ 
no electrónico. Podrás interpre¬ 
tar melodías directamente des¬ 
de el teclado con o sin acom¬ 
pañamiento. Hay cinco acom¬ 
pañamientos distintos, que po¬ 
drás seleccionar pulsando las 
teclas con los números corres¬ 
pondientes (1, 2, 3, 4, 5 ó f 1. 
f2, f3, f4, f5>. 

La velocidad del acompaña¬ 
miento (tempo) se puede selec¬ 
cionar también con los curso¬ 
res. Asimismo, la uelocidad de 
autorrepetición de las teclas es¬ 
tá alterada. Para poder escribir 
al salir del programa, fO tiene 
definida la velocidad normal, 
con lo que pulsando esta tecla 
más ENTER todo volverá a la 
normalidad. 

DESCRIPCION DEL 
PROGRAMA 

Inicialización: (20-120). Se 
define la velocidad de autorre¬ 
petición del teclado. Se intro¬ 
ducen los valores de los perio¬ 
dos de las notas en una matriz. 
Se pregunta si se quiere acom¬ 
pañamiento o no y se salta a la 
rutina correspondiente, pasan¬ 
do antes por la subrutina de 
pantalla. 

Rutina de acompañamiento: 
(450-490). Se establecen los va¬ 
lores iniciales del acompaña¬ 
miento. Se pone en marcha la 
subrutina de lectura del teclado 
por interruptores y melodía, y 
se salta al acompañamiento 
que corresponda según los da¬ 
tos suministrados por dicha ru¬ 
tina: la variable g contiene el 
número de acompañamiento, 
(*) y t la duración. Inicialmen¬ 
te, su valor es de 30. Este valor 
se toma como base en una es¬ 
cala de 0 a 60, escala que se ob¬ 
tiene restando a 60 el valor t. 
De estar forma, con el valor de 
60, el tempo alcanza su valor 
más rápido, y viceversa para el 
0. 

Lectura del teclado: 
(130-420). Esta rutina es llama¬ 
da mediante interrupciones por 
la rutina de acompañamiento. 
Se divide en la de lectura del te¬ 
clado en sí y la de melodía. La 
primera consiste en una lista de 
sentencias if que comprueban 
las teclas del órgano una por 
una y le asigna a la variable S 
un valor que se corresponde 
con el valor del periodo de la 
nota en la matriz p 0. Nótese 
que todas las sentencias if se 
podían haber sustituido por una 
sola sentencia del tipo: 
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s=1*(¡$ = "A”) + Z* 
(¡$ = "W"> + ... 


Sin embargo, estas senten¬ 
cias son más rápidas de teclear 
mediante el AUTO y el COPY, 
ya que lo único que varía de 
una sentencia a otra es la letra 
de la tecla y el valor S. 

La sentencia "¡f" correspon¬ 
diente a la lectura del número 
del acompañamiento se asegu¬ 
ra de que ¡$ es una de las te¬ 
clas del 1-5, antes de cambiar 
el valor a g (que era la variable 
que indicaba el número del 
acompañamiento). Esto se ha¬ 
ce con objeto de que con sólo 
pulsar una de las cinco teclas, 
el acompañamiento cambie (de 
otra forma, al ir tocando la me¬ 
lodía, para cambiar de acompa¬ 
ñamiento tendríamos que man¬ 
tener la tecla de acompaña¬ 
miento correspondiente pulsa¬ 
da hasta que terminase la com¬ 
probación de todas las teclas, 
sino g quedaría con el último 
valor chequeado). La sentencia 
360 evita que al intentar averi¬ 
guar el código ascll de la cade¬ 
na"" (vacío) cuando no se esté 
pulsando ninguna tecla, en la 
370, el ordenador nos de men¬ 
saje de error. Como se ve, el 



f • 


| 

i 



% 4 
m 4 

m # 

ñ 0 



método seguido para que no 
suenen las notas cuando no se 
estén pulsando las teclas es el 
de poner el volumen a 0. Así, 
la nota se seguirá tocando pe¬ 
ro no podremos oirla. 

La otra subrutina, SONIDO 
(410-420), lo único que hace es 
tocar la nota con los datos de 
periodo (s) y volumen (v). 

Se le da una duración muy 
pequeña para que las notas no 
se almacenen en la cola de so¬ 
nido, retardando así la respues¬ 
ta al teclado. 

(500-1380).— Aquí están las 
cinco subrutinas de los cinco 
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I 

I 

I 

I 

I 


'l~ 4 ’K” f , 

; z m 4 

) + 

5* (: 

2 $■ = 

"5" ) ) 

490 

GN q 6 

0 í 

0 5' 

00 H , 

690,8 

500 

'- 

— 

•~do 

íí'tcTl 

yor. 

510 

SOUND 

6, 

239 

, t , 

■7 

520 

FOR n= 

1 

TO 1 

5*1 

: NEXT 

530 

SOUND 

•—} 

190 

, t/ 

2 , 7 

540 

BOUND 


159 

, t / 

r -, - . 

550 

FOR r.= 

i 

TO 

5*1 

: NEXT 

560 

SOUND 

t--y 

. 

190 

, t / 

2 , 7 

570 

SOUND 

4, 

159 

,1/ 

2,7 

580 

FOR n= 

1 

TO ' 

5*1 

: NEXT 

590 

SOUND 

6 , 

319 

,1 , 

*7 

/ 

600 

FOR n= 

1 

TO 

5*t 

s NEXT 

610 

SOUND 


1 90 

,t/ 

2,7 

620 

SOUND 

4, 

159 

,1/ 

2 , 7 

630 

FOR n- 

1 

TO 

5*1 

: NEXT 

640 

SOUND 

O 

1 90 

,1/ 

2,7 

650 

SOUND 

4, 

159 

,1/ 

r> 7 

660 

FOR n- 

1 

TO 

5*1 

: NE X T 

670 

GOTO 480 



680 

'.—. 

— 

— 

— r 

e men< 

690 

SOUND 


213 

, 1 , 

7 

700 

FOR n= 

1 

TO 

5*1 

: NEXT 

710 

SOUND 


179 

,1/ 

2,7 

720 

SOUND 

4, 

142 

,1/ 

2,7 

730 

FOR n= 

= 1 

TO 

5*1 

: NEXT 

740 

SOUND 

2, 

179 

,1/ 

2,7 

750 

SOUND 

4, 

142 

,1/ 

2,7 

760 

FOR n= 

1 

TO 

5*1 

: NEXT 

770 

SOUND 

¿> m 

284 

,t , 

~r 

/ 

780 

FOR n= 

í 

TO 

5*1. 

: NEXT 

790 

SOUND 

*- 7 

179 

,1/ 

2,7 

800 

SOUND 

4, 

142 

1 1 / 

2 , 7 

810 

FOR n-- 

: 1 

TO 

5*1 

: NEXT 

820 

SOUND 

O 

179 

,1/ 

2 , 7 

830 

SOUND 

4, 

142 

,1/ 

O "7 

-¿■I / 

840 

FOR n= 

= 1 

TO 

5*1 

: NEXT 


850 GOTO 480 

860 '----—sol mayor--- 

870 SOUND 6,319,1 ,7 
880 FOR n=1 70 5*1¡¡NEXT 
890 SOl.JND 2,253 ,1/2,7 
900 BOUND 4,213,t/2,7 
910 FOR r»~ 1 TO 5*1:NEXT 
920 SOIJND 2,253, 1/ 2,7 
930 SOIJND 4,213,1/2,7 
940 FOR n=1 TO 5*t:NEXT 
950 SOUND 6,426,1,7 
960 FOR n=1 TO 5*1:NEXT 
970 SOOND 2,253,172,7 
980 SOUND 4,213,t72,7 
990 FOR n=i TO 5*1:NEXT 
1000 SOUND 2,253,1/2,7 
1010 SOUND 4,213,t/2,7 
1020 FOR n=1 TO 5*1:NEXT 










1030 

GOTO 4 

8< 

0 




1040 

'- 

..... 


1 ci 

me n 

or 

1050 

SOUND 


,284 

, t , 

7 


1060 

POR n -- 

1 

TO 1 

5*t. 

: NE 

XT 

1070, 

SOUND 

n 

, 239 

,t/ 

2 7 


.1. 080 

SOUND 

4 

, 1 90 

,t./ 

'1 "7 

% / 


1 090 

POR n — 

1 

TO 

5*t. 

: NE 

XT 

1100 

SOUND 

2 

, 239 

, t / 

i y 


1 1 10 

SOUND 

4 

, 190 

, t / 

2,7 


1120 

POR n~ 

1 

TO 

5*t 

: NE 

XT 

1130 

SOUND 

6 

,379 

<1 l. .| 

7 


1 140 

POR n~ 

1 

TO 1 

5*t 

: NE 

x r 

1 150 

SOUND 

n 

, 239 

,t/ 

2 , 7 


1 160 

SOUND 

4 

, 190 

,t/ 

«y 

2 :. , / 


11 70 

POR n-~ 

1 

TO 

5*t 

: NE 

XV 

1 180 

SOUND 

2 

'TTG 

•f f 

,t/ 

'O ~v 

, / 


1 190 

SOUND 

4 

, 190 

,t/ 

2,7 


1200 

POR n= 

1 

TO 

5*t. 

: NE 

XT 

1210 

GOTO 480 




1 220 

'. 

... 

-. f & 

mayor 

— 

1230 

SOUND 

6 

, 358 

,t. 

7 


1235 

PUE n= 

i 

TO 

5*t 

: NE 

XT 

1240 

SOUND 

n 

, 284 

,t/ 

2,7 


1250 

SOUND 

4 

, 239 

,t/ 

2 , 7 


1260 

POR n- 

1 

TO 

5*t 

: NE 

XT 

1270 

SOUND 

'*> 

y.. 

,284 

,t/ 

2,7 


1230 

SOUND 

4 

, 239 

l t / 

2,7 


1290 

POR n- 

■1 

TO 

5*t 

: NE 

XT 

1300 

SOUND 


,478 

n ^ i 

7 


1310 

POR n= 

= 1 

TO 

5*t 

: NE 

XT 

1320 

SOUND 


,284 

,t/ 

2,7 


1330 

SOUND 

4 

070 

, V 

,t/ 

2 , 7 


1340 

POR n = 

= 1 

TO 

5*t 

:NE 

XT 

1 350 

SOUND 

•') 

,284 

,t/ 

2,7 


1 360 

SOUND 

4 

, 239 

,t/ 

2 , 7 


1370 

POR n* 

1 

TO 

5*t 

: NE 

XT 

1380 

GOTO 48 

0 




5000 

'- 

... 

— 

si n 

ac 

om 


5010 EVERY 4,1 GOBt.JB 140 
5020 GOTO 5020 

5030 '- p a rt t a 11 a - 

5040 MODE 1 

5050 PAPER #2,2:WINDOW #2,7,31,5,9:CLS#2 
5060 LOCATE 9,6:PRINT"w e t y -i o p 
V " 

5070 LOCATE 8,7:PR1NT" 

II 

5080 LOCATE 8,8: PR I NT" a s d -f g h j k 1 

: ; 3 " 

5090 LOCATE 15,4:PEN 3:PRINT"TECLADO" 

5100 LOCATE 14,20:PRINT CHRT(164);CHRT(6 
5);CHR* < 46 > ;CHRT(71);CHR$(46);CHR$(32);C 
HRT(67);CHE*(72);CHRT(73);GURÍ(67);CHRT( 

79 ) 

5110 RETURN 




» 




acompañamientos distintos. 
Tienen ritmo de valls y están 
pensados para acompañar a 
una melodía que esté en DOM 
(ya que ésta tonalidad, al no te¬ 
ner semitonos, es la más fácil 
de interpretar). 

Combinando adecuadamen¬ 
te en cada subrutina de acom¬ 
pañamiento las diferentes no¬ 
tas que las componen, se po¬ 
drán construir ritmos diferentes 
aumentando así el número de 
acompañamientos (por ejem¬ 
plo: como se observará, cada 
rutina de acompañamiento se 
compone de una sound, un bu¬ 
cle de pausa, y dos pares de 
SOUND con su correspondien¬ 
te bucle de espera. Si se elimi¬ 
na uno de estos pares con su 
bucle, se obtendrá un ritmo de 
marcha). 

Asimismo, con unos míni¬ 
mos conocimientos de música 
se podria variar la tonalidad del 
acompañamiento cambiando 
únicamente las notas (perio¬ 
dos) de las sentencias sound. 

De esta forma, utilizando te¬ 
clas numéricas que no se usan 
y la fila de debajo del teclado 
de la melodía (de la z a la ), po¬ 
déis ampliar el número de 
acompañamientos hasta 23. 




Sin acompañamiento: 
(5000-5020). Activa las in¬ 
terrupciones y se queda en un 
bucle sin fin. 

Pantalla: Define una pantalla 
para representar un teclado de 
piano con las letras del teclado. 
Así, la letra A corresponde a la 
nota SOL, la tecla W a SOLi, 
etc. Obsérvese que en la fila a 
- ] están las notas naturales, y 
en la W [ las sostenidas o be¬ 
moles. 

Los que tengáis un ordena¬ 
dor AMSTRAD 6128 con tecla¬ 
do en castellano, tenéis que 
cambiar los de éste listado 
por la tecla correspondiente. 
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TRANSMUTER es un 
juego de acción con nu¬ 
merosos escenarios que 
hacen que la dificultad 
sea cada vez mayor a me¬ 
dida que avanzamos en 
nuestra aventura. 

La presentación cuenta 
con un atractivo dibujo 
de portada y una melodía 
muy bien realizada. 

Los gráficos son abun¬ 
dantes y variados, sin 
embargo el SCROLL (9 
continuo hacia la izquier¬ 
da) es muy brusco y ha¬ 
ce que nuestra nave se 
mueva de un modo par- 


Lejos, e-n s\ 3 
envejecido v sé 
en una GIGA 
hombre ha tenido < 

-.-se bajo tierra, u,t*}g 
“ lor del planeta pata aój 
: ; Generación tras gene 
■' • ha ido cobijando e 

a mayor profu ndi’dad > 
en cada nivel anterior morirte-i 
ras máquinas cubriendo la j 
taguardia. Ultimamente ha 
do creada una nave-par^* 
tener el abundante mineral .5 
la corteza terree y 
mos descendientes huma 
pueden abantfe^ 8 p 6 B w| 
hundo plarieteiV tídioaóteni-. 
las mjqu ñas lüéhácldiras peí: 
manecen ¡odavfó guafdandfj 
a los humanos qué fiace t¡ 
tos años que tefe coto 
Tú .-eres el capitán : 
uno de los. primero^ 
nacidos en la primera í 
establecida fuorado.-ia 
Tu misión es regresar,* 
planeta dondé tus anf 1 
dos instalaron sus -»’ 
mortíferas, para resc 
gún viajero espacia^ 


padeante por la pantalla. 
Algunos escenarios po¬ 
seen una buena calidad 
gráfica, en cambio otros 
resultan un poco pobres. 
La ¡dea del juego en ge¬ 
neral es buena y las situa¬ 
ciones se desarrollan con 
gran velocidad lo que 
convierte a TRANSMU- 
TER en un juego diverti¬ 
do y adictivo. 


to • 


S (? 

G I 
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Juegos 


Hasta ahora se ha mantenido el 
equilibrio político y ha habido paz 
por todo Berlon. Pero a través de 
una puerta inter-dimensional en las 
mazmorras del maléfico nigromante 
Acamantor, han aparecido ahora 
cuatro principes endemoniados. 

Ha recaído sobre ti, el último de los 
Grandes Druidas, la tarea de 
destruir a los principes y de cerrar la 
puerta. 

Los principes endemoniados andan 
acechando por las tenebrosas 
profundidades de la mazmorra, y 
solamente pueden destruirse por 
medio de tu poderoso hechizo, que 
en este caso debe de transportarse 
por medio del tacto. 

Por toda la mazmorra encontrarás 
arcas que contienen hechizos de 
una fuerza formidable para ayudarte 
en tü búsqueda y Pentogramas de 
vida, que revitalizarán totalmente tu 
esencia de vida. Usa estos recursos 
con prudencia a fin de sobrevivir el 
ataque constante de los monstruos 
dimensionales infernales y poder 
hacer frente a los principes 
endemoniados. 

Triunfa y alcanzarás el alto puesto 
de Maestro de la luz, el mayor de 
todos los Druidas. Fracasa y no 
serás más que un mediocre ingenio 
y tu alma cautiva se reunirá con los 
numerosos fantasmas de los que te 
han precedido, perdidas en las 
mazmorras de Acamantor. 


DRUID 

DRO-SOFT 


DRUID es un juego en el que 
tendrás que recorrer un 
intrincado laberinto buscando 
los hechizos que te ayuden a 
destruir a las fuerzas del mal. 
La presentación es muy 
espectacular, ya que junto a 
un buen dibujo de portada, al 
mismo tiempo que al efectuar 
la carga del programa, 
podemos escuchar una 
melodía muy bien adaptada 
para el ordenador. 

DRUID tiene una gran 
abundancia de gráficos muy 
elaborados, sin embargo el 


espacio "útil" donde se 
desarrolla el juego es algo 
reducido. En él, el laberinto se 
desplaza mediante un 
"SCROLL" en cuatro sentidos 
muy suave. 

Los sonidos de ambiente, los 
movimientos y la rapidez de 
respuesta son otra buena 
característica de DRUID. 

La dificultad no es muy 
elevada pero hay que estar 
muy atento a los múltiples 
enemigos que van apareciendo 
en pantalla a lo largo de la 
aventura. 


■¡m j 

; - ¿o"aí¡! 


M717BS 

Fias 

fck£GT8íef»Y 

K£V 

uwfsf9n.fr? 


91 
89 

I ” 

x?, 1 

1 

® i 
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COMENTARIO 




El tema de TOYS trata de una 
rebelión de juguetes contra 
CIBER dueño, por no hacerles 
caso y preferir jugar con 
ordenadores. 

La aventura transcurre en tres 
fases o laberintos diferentes (un 
jardín, un castillo y un 
cementerio) de 15 pantallas cada 
uno, donde los juguetes han 
desperdigado el material 
informático de CIBER. 

Los gráficos de TOYS están bien 
elaborados siendo todos los 
juguetes animados y de varios 
colores, sin embargo la 
diversidad de estos no es muy 
grande. 

Los movimientos son rápidos y 
siempre existen varios objetos en 
movimiento dentro de cada 
pantalla: la respuesta de CIBER 
AL TECLADO es también muy 
rápida. 

La pantalla de presentación no 
es demasiado atractiva y cuenta 
con una corta melodía inicial: el 
resto de sonidos del juego 
cumplen bien su misión de 
ambientar. 

El nivel de dificultad es elevado 
y esto hace que el juego resulte 
divertido aunque no muy 
emocionante. 



Nuestro amigo CIBER es un gran 
entusiasta de los ordenadores y por 
culpa de su afición tiene abandona¬ 
dos al resto de sus juguetes. 

Un buen día CIBER, como siem¬ 
pre, va a su cuarto a jugar y se lo en¬ 
cuentra vacio. Ni sus ordenadores, ni 
ninguno de sus juguetes se encuen¬ 
tra en la habitación. 

Sorprendido CIBER baja a la calle 
y se encuentra con que sus juguetes, 
hartos de ser ignorados, se han su¬ 
blevado contra él y han esparcido sus 
ordenadores y sus juegos por diver¬ 
sas partes del jardín, en las ruinas de 
un viejo castillo y en el cementerio 
cercano. 

Debes ayudar a CIBER a rescatar 
sus ordenadores y todo su material 
informático secuestrado por los ju¬ 
guetes en plena rebelión. La tarea no 
será sencilla pues todos los juguetes 
han tomado vida y atacarán a CIBER 
allá donde lo encuentren, restándole 
energía hasta acabar con sus cuatro 
vidas. 
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El objeto del juego es absorber 
al "Sentlnel" y sustituirlo como 
regidor del panorama. Una vez lo¬ 
grado, el jugador puede supres- 
paciar a un nuevo mundo y tratar 
de lograrlo de nuevo. 

Una vez que se haya insertado 
el cassette con el juego, aparece¬ 
rá el titulo en la pantalla. Al pul¬ 
sar cualquier tecla se le pedirá 
que inscriba un número de pano¬ 
rama, del 0000 a 9999. 

Una vez inscrito el número de 
panorama y pulsar retorno, se le 
pedirá que marque un número de 
clave de 8 cifras, al menos que 
haya elegido panorama 0000, que 
no lo requiere. 

Pasados unos segundos, apa¬ 
recerá la superficie panorámica. 
El Sentinel y los Sentries perma¬ 
necerán inactivos hasta que el ju¬ 
gador gaste o absorba energía. 
Esto le permitirá mirar alrededor 
y plantear su ataque al Sentinel. 

Una vez activados, el Sentinel 
y los Sentries giran despacio, 
barriendo el panorama, buscando 
cuadros que contienen más de 1 
unidad de energía. Si pueden ver 
con claridad uno de estos cua¬ 
dros, el Sentinel/Sentry reducirá 
la engergiá a 1 unidad, absorbien¬ 
do 1 unidad a la vez y creando un 
árbol al azar en el panorama. De 
esta forma, el robot se convierte 
en bloque y el bloque se convier¬ 
te en árbol. 

Se absorbe y se crean cosas, 
haciendo girar las miras y cen¬ 
trándolas en la superficie del cua¬ 
dro bajo el objeto a ser absorbi¬ 
do/creado. Sin embargo los blo¬ 
ques actúan como extensión de 
la superficie del cuadro, y las mi¬ 
ras deberán ser dirigidas al costa¬ 
do del bloque, se pueden apilar 
los bloques y colocarse cosas so¬ 
bre ellos. 

La energía disponible aparece 
mostrada en la parte superior iz¬ 
quierda de la pantalla en forma de 
iconos de robot, bloque y árbol. 
Un robot de color (no azul) vale 
por 15 unidades de energía. 

Para moverse alrededor del pa¬ 
norama, se debe crear un robot y 
entonces, con las mairas aún en¬ 
cendidas, púlsese la tecla de 
transferencia. Asi se pasará al 
nuevo robot, de cara al antiguo 
robot, que puede ahora ser ab¬ 
sorbido. El indicador en la parte 
superior derecha de la pantalla es 
el de advertencia de barrido. Si le 
localiza un Sentinel/Sentry, el in¬ 
dicador aparecerá lleno de motas. 
Tiene aproximadamente 5 segun¬ 
dos para desaparecer de vista an¬ 
tes de que se le agote la energía, 
1 punto a la vez. Una vez agota¬ 
das toda la energía, queda absor¬ 
bido totalmente y acaba la ju¬ 
gada. 

El volumen de energía total en 
el panorama permanece constan¬ 
te, de forma que si se absorbe 1 
unidad de su energía, se coloca¬ 
rá al azar un árbol en el pa¬ 
norama. 

Si el indicador de advertencia 
de barrido sólo se encuentra me¬ 
dio lleno de motas, esto significa¬ 
rá que el Sentinel/Sentry puede 
verle pero no puede ver el cuadro 
en el que permanece usted situa¬ 
do. 



SENTINEL 





SENTINEL 

SENTINEL es un 
juego sobrecogedor 
tanto por su temática 
como por los desola¬ 
dores escenarios en 
los que transcurre la 
acción. 

Podríamos calificar 
a SENTINEL como un 
simulador de una rea¬ 
lidad futura: el con¬ 
trol de un robot que 
nos trasmite la visión 
de otro mundo a tra¬ 
vés de un monitor de 
vídeo. 

Los ESCENARIOS 
(10.000 en total) repre¬ 
senta diferentes caras 
de un PLANETA cuyo 
paisaje es un enjam¬ 
bre de figuras geomé¬ 
tricas. 

Hemos de descubrir¬ 
nos ante el método de 
elaboración de los 
gráficos, así como 
también es de desta¬ 
car la originalidad del 
tema y su ejecución. 

La pantalla de pre¬ 
sentación y los soni¬ 
dos que amenizan y 
dan ambiente al juego 
también tienen una 
gran calidad. 

SENTINEL es un 
juego que puede pare¬ 
cer en un principio 
complicado de mane¬ 
jar, no sólo por el nú¬ 
mero de teclas que 
utiliza sino por la can¬ 
tidad de situaciones y 
posibilidades que 
ofrece; pero una vez 
conocido su manejo 
es apasionante. 

Los movimientos 
son algo lentos, pero 
esto es totalmente 
disculpable dada la 
complejidad que en¬ 
traña mover en panta¬ 
lla unos paisajes tan 
elaborados. 
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GAME OVER es un juego de una acción desbordan¬ 
te: la velocidad con que se mueve su protagonista, la 
enorme fluidez de su disparo y el constante aparecer 
de enemigos por todas partes y a gran velocidad po¬ 
nen en apuros al más templado jugador. 

Los gráficos son bastantes variados y los movimien¬ 
tos rapidísimos así como la respuesta de "ARKOS" al 
joystick o al teclado. 

La pantalla de presentación constituye por sí mis¬ 
ma una verdadera obra de arte, como ya viene siendo 
habitual en las producciones de DINAMIC. 

Los sonidos amenizan los disparos e impactos que 
se realizan durante las dos fases o niveles de que se 
compone el juego. 

El nivel de dificultad es muy elevado y requiere gran 
rapidez de reflejos y nervios de acero para ir superan¬ 
do cada pantalla. 

GAME OVER es en definitiva el juego ideal para 
aquellos que gustéis de las emociones fuertes y de los 
juegos de mucha acción. 


En una lejanísima Galaxia perdida en la inmen¬ 
sidad del Universo, una bellísima y malvada mu¬ 
jer había sometido con su inteligencia y su in¬ 
menso ejército de TERMINATORS a las cinco 
confederaciones de planetas situadas más allá 
de ALFA CENTAURI. 

Todo el poder de GREMLA descansaba en la 
fidelidad casi religiosa de su lugarteniente AR¬ 
KOS; sin embargo, la inteligencia de este ME- 
GA-TERMINATOR de combate había evolucio¬ 
nado en los últimos ultraquarks de tal manera 
que, finalmente, abandonó a GREMLA y se unió 
a las tropas de la infantería sideral, que capita¬ 
neaba el general de estrella azul MC KILLER. 

La aventura comienza... 

Arkos conoce muy bien el poder de combate 
de los TERMINATORS de GREMLA. 

Arkos es una máquina perfecta para des¬ 
truirles. 

Arkos sólo tiene una orden en su cerebro elec¬ 
trónico; ejecutar la misión. 

ENEMIGOS Y PERSONAJES 

Los planetas dominados por el poder de 
GREMLA se encuentran vigilados por un com¬ 
plejo centro de seguridad dirigido por el SISTE¬ 
MA DE INTELIGENCIA SIDERAL, "NEXUS 
2H07". 

Ningún detalle escapa a su control. 

Ninguna formación de tubo-cazas puede pa¬ 
sar inadvertida a su radar de partículas. 

Nada es desconocido para NEXUS ZH07. 

Si la presencia de NEXUS es determinante, no 
lo son menos las multitud de TERMINATORS 
que pululan por los planetas de GREMLA. 

Todos ellos son máquinas creadas para el 
combate, la búsqueda y la destrucción. 
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VIDEO- 

AVENTURA 


Kinetik es un juego 
que presenta una 
gran calidad y 
variedad en sus 
gráficos, la respuesta 
al teclado también es 
rápida y los 
movimientos de sus 
protagonistas son 
ágiles, suaves y 
reflejan un trabajo 
costoso por parte de 
sus autores, que 
proporciona a Kinetik 
un aspecto muy 
agradable. Otro 
efecfó destacable es 
que en la misma 
pantalla los 
marcadores están 
realizados en modo 




1, mientras el juego 
está en mode 0. 

Los sonidos son 
escasos y se limitan 
a producir diferentes 
efectos sonoros en 
choques y demás 
lances del juego. 

La carga se realiza 
con un contador de 
bloques y ofrece una 
pantalla de 
presentación no 
demasiado 
elaborada. 

Kinetik es en líneas 
generales un juego 
muy elaborado y con 
una temática 
sumamente original y 
una gran variedad de 
situaciones y 
pantallas diferentes 
que le hacen 
bastante adictivo. 


Por todo el universo las 
leyes del movimiento per¬ 
manecen constantes, si se 
alteran o distorsionan es¬ 
tas leyes todo se convierte 
en caos. El moverse en el 
espacio se convierte en un 
reto a prueba de habilidad 
y destreza, y el evitar los 
objetos circundantes su¬ 
pone una batalla de tác¬ 
ticas. 

Y así es el mundo Kiné- 
tico. Tu misión es restau¬ 
rar las leyes a su equilibrio 
natural. Hay que llevar el 
mensaje de paz a las ma¬ 
nos del kinemator, quien 
entonces ejercerá su con¬ 
trol sobre las fuerzas del 
cosmos. Las tres letras 
que forman la palabra del 
mensaje se encuentran re¬ 
partidas por las 43 zonas 
de Kinetik, y tu tienes que 
encontrarlas. 

Tu hidronave esferoide 
se encuentra idealmente 
equipada para soportar las 
presiones de las fuerzas de 
gravedad que te harán 
frente, pero al iniciar el jue¬ 
go no hay forma de retar¬ 
las. Según se progresa, 
podrás ir recogiendo arma¬ 
mento, una diversidad de 
protección contra las fuer¬ 
zas deflectora y un sistema 
teleportivo que servirá de 
protección contra las fuer¬ 
zas de kinetik o de arma 


contra la multitud de sus 
habitantes. Para recoger el 
equipo sólo hay que mo¬ 
verse sobre él y éste que¬ 
dará instalado en la caja de 
instrumentos entonces 
elegida (iluminada de ro¬ 
jo). Toda pieza de equipo 
que ya haya sido instalada 
en la caja será retirada y te- 
leportada de nuevo a su lu¬ 
gar de origen. 


EQUIPO 


Pantalla Deflectora - Pro¬ 
tege contra todos los habi¬ 
tantes, excepto el ladrón. 
Dispersor Químico - Acti¬ 
vado por la llave de accio¬ 
namiento, este arma dis¬ 
persa a los habitantes y 
sus ácidos su per-corrosi¬ 
vos también hacen diente 
a través de los muros. 
Impulsores de Control EZ 
Anula las fuerzas de grave¬ 
dad, incluso las de fricción 
y salto en el planeta, lo 
cual permite el movimien¬ 
to normal libre. 

Impulsores Anti-Gravedad 
Sólo anulan la gravedad. 
El Sistema Teleportivo 
Permite el teleporte a cual¬ 
quier zona, excepto las de 
defensa central que con¬ 
ducen al Kinemator. 
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GRANADAS 



FfDTUGSAS 


Te encuentras aislado 
en una trinchera rodeado 
por el enemigo y posees 
una caja de granadas de 
mano, donde sabes que 5 
de ellas son defectuosas, 
no obstante has de ir lan¬ 
zándolas para conservar 
la vida aunque sólo mo¬ 
mentáneamente. 

Para lanzar las grana¬ 
das tendrás que introdu¬ 
cir en primer lugar la fila 
(1.5) y luego la columna 
(A-H). 

Comentario del 
programa 

Este es un juego donde 
se puede comprender fá¬ 
cilmente el funcionamien¬ 
to de las tablas dimensio- 
nadas con DIM. 

10-120. Redefinición de 
los gráficos. 

120-260. Impresión de 
la pantalla de presenta¬ 
ción en MODO 0. 

22 MUNDO AMSTRAD 



ÍrIR *** angÍl r garci£¡ BeCgSdo ***■* 

30 REM ****** MUNDO AMSTRAD ****** 

40 ' 

50 ' — REDEFINIR GRAFICOS — 

60 * 

70 SYMBOL AFTER 160 

80 SYMBOL 160,0,63,112,111,207,192,134,1 
42 

90 SYMBOL 161,12,210,210,236,248,0,208,2 
16 

100 SYMBOL 162,0,110,110,110,0,59,59,27 

110 SYMBOL 163,0,238,238,238,0,220,220,2 

16 

120 ' 

130 ' — PRESENTACION — 

140 ' 

150 MODE O:INK 0,24:INK 1,0:INK 2,6:INK 
3,18 

160 BORDER 24:PAPER 0:CLS 
170 ORIGIN 300,200 
180 FOR A=0 TO 2*PI STEP PI/20 
190 PLOT 0,0,3:DRAWR COS(A)*800,SIN(A)*8 
00 

200 NEXT A 

210 PRINT CHRÍ(22)+CHRÍ <1> 










220 PEN 1 

230 LOCATE- 7 , 1 3: PRI NT " GRANADAS " 

240 FOR A= 1 TO 1000 STEP 4:S01JND 1,A,1,1 
5,0,0,31:NEXT A 
250 INK 3,18,24 

260 FOR A— 1 TO 1000 STEP 5: SOIJND 1 , A , 1 , 1 
5: SOUND 2 , AMO , 1 , 15: SOUND 3 , ÍOOO-A, 1 , 15: 
NEXT A 

270 aT-CHRí(160)+CHR*<161)+CHRÍ(10)+CHR* 
<8)+CHRT <8)+CHR$<162)+CHRÍ<163) 

280 INK 3,18 
290 ' 

300 ' - INSTRUCCIONES - 

310 ' 

320 MODE 1 
330 PEN .1 
340 PRINT " 

>>" 

350 PRINT 
360 PRINT 
370 PRINT" 

S" 

380 PRINT 
390 PRINT" 

QUE " 

400 PRINT 
410 PRINT" 

420 PRINT 
430 PRINT" 

RAN" 

440 PRINT 
450 PRINT" 


<< LAS GRANADAS DEFECTUOSAS 

HAS DE IR LANZANDO GRANADA 

'DE LA CAJA. PERO EXITEN 5 

SON DEFECTUOSAS, V SI LAS" 
INTENTAS LANZAR TE ESTALLA 

EN LAS MANOS (SON VERDES). 


460 FOR, A= 1 TO 39 STEP 4: PEN 2: LOCATE A, 
20:PRINT A*;:PEN 3:PRINT A$:NEXT A 
470 INK 2,6,18:INK 3,18,6 
480 IF INKEY-Í-"" THEN 480 
490 ' 

500 ' - INICIALIZA 

510 ' 

520 INK 2,6:INK 3,18 
530 MODE 1:P=0:DIM M<8,5) 

540 PEN 1 
550 ’ 

560 ' - SITUA GRANADAS VERDES - 

570 ' 

580 FOR A=1 TO 5:M(1 +1NT < RND*8) ,1 +1NT < RN 
D*5>)=2 
590 NEXT A 
600 ' 

610 ' - DIBUJA CELDILLAS - 

620 ' 

630 MODE 1 

640 ORIGIN 0,200 

650 PL.OT 0,150,1: DRAWR 700 , O 



270-280. Se carga en 
A$ los caracteres necesa¬ 
rios para imprimir la gra¬ 
nada. Se emplean tam¬ 
bién códigos de control 
para desplazar el cursor e 
imprimir cada carácter en 
su posición. El código 10 
mueve el cursor hacia 
abajo, el código 8 lo mue¬ 
ve un carácter a la iz¬ 
quierda. 



290-490. Impresión de 
las instrucciones del jue¬ 
go. Acompañada de un 
pequeño efecto de ani¬ 
mación de tintas, en es¬ 
pera de la pulsación de 
una tecla para empezar. 

500-560. Se fija el MO¬ 
DO 1 de pantalla con sus 
colores correspondien¬ 
tes, se ponen los puntos 
a cero y se dimensiona 
(con DIM) una tabla de 



ocho elementos de an¬ 
chura por 5 de altura. 


560-590. Se sitúan me¬ 
diante un bucle las 5 gra¬ 
nadas defectuosas intro¬ 
duciendo un 2 en la tabla. 
Esto lo hacemos para lue¬ 
go al leer un 2 reconocer 
que se trata de una gra¬ 
nada defectuosa. 

600-790. Se activa el 
MODO 1 en pantalla. Se 
dibuja la rejilla y los nú- 
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meros y letras de las cel¬ 
dillas. Para imprimir los 
números verticalmente se 
ha almacenado una cade¬ 
na y luego se imprime 
con un bucle cada carác¬ 
ter de esta cadena. 

800-900. Bucle princi¬ 
pal. Se imprime el mara- 
cador de los puntos. Se 
pregunta el número de la 
fila y se comprueba si el 
valor no está comprendi¬ 
do en el margen, en este 
caso se vuelve a hacer la 
pregunta. 

A continuación, el or¬ 
denador nos pide la co¬ 
lumna en una variable al- 
fanumérica. Se pasa a 
mayúsculas y se busca 
dentro dé una cadena pa¬ 
ra obtener el número de 
columna a la que corres¬ 
ponde. 

En la variable B se 
guarda el contenido de la 
celdilla seleccionada. Si B 
es 2 se salta a la rutina de 
explosión. Si B es 0 se su¬ 
man 5 puntos, y se acti¬ 
va la celdilla a 1 para re¬ 
conocer si se vuelve a ha¬ 
cer otra lectura de la mis¬ 
ma celdilla, en caso afir¬ 
mativo se preguntarán las 
coordenadas de nuevo. 

En la línea 980 está la 
subrutina que dibuja la 
granada en la celdilla 
correspondiente, estando 
en la 990 la información 
para imprimir el marcador 
de los puntos. 

1000-1120. Rutina de gra¬ 
nada defectuosa. Sonido 
de fallo. Se muestra la lo¬ 
calización de todas las 
demás granadas, revelan¬ 
do cuales eran las buenas 
y cuales las defectuosas. 
Luego se imprime el men¬ 
saje GAME OVER. Se ha¬ 
ce una pausa y se salta a 
la zona de instrucciones. 




# 



660 PLOT O,-150:DRAWR 700,O 
670 WINDOW #1,12,35,9,19 
680 PEN#1,1 

690 LOCATE 12,7:PRINT"A B C D E F G H” 
700 B$=”1 2345” 

710 FOR X~1 TO 10 STEP 2 

720 PEN 1:LOCATE 10 , X +9 :PRINT MI DT< B$, X , 
1) 


730 

FOR Y=1 TO 

16 STEP 2 


740 

PEN 1:LOCATE#1,Y,X 


750 

PRI NT#1,A* 



760 

NEXT Y:NEXT 

X 


770 

WINDOW- #2, U 

0 ,-40,24,24 


730 

PEN#2,1 



790 

P=0 



800 

* 



810 

'-BUCLE 

PRINCIPAL - 


820 

• 



830 

GOSUB 990 



840 

SOUND 1,200 

,20,15 


850 

INPUT #2," 

FILA <1~5>:"¡¡ 

F 

860 

IF F< 1 OR F 

>5 THEN SOUND 

1,400,50:GO 


TO 850 

870 INPUT #2,"COLUMNA (A-H):"; C$ 

880 C$=UPPER$(CT) 

890 B$=”ABCDEFGH" 

900 C=0:FOR A=1 TO LEN<B$) 

910 IF C*=MID$<B*,A,1) THEN C=A 

920 NEXT A: IF C=0 THEN SOUND 1,400,50:80 

Tü 870 

930 B=M <C,F> 

940 IF B-2 THEN PEN#1,3:GOSUB 980:SOUND 
1,400,50:GOTO 1030 

950 IF B-0 THEN M(C,F)=1:P=P+5:PEN#1,2:8 
OSLJB 980: FOR A=1 TO 1000 STEP 10: SOUND 1 
,A,1,15:NEXT A 

960 IF B~1 THEN SOUND 1,400,200:GOTO 850 
970 GOTO 830 

980 LOCATE # 1 , C*2~ 1 , F*2~1: PR I NT # 1 , A$: RE 
TURN 

990 LOCATE 14,2:PRI NT "PUNTOS:";P:RETURN 
1000 * 

1010 * - GRANADA DEFECTUOSA - 

1020 * 

1030 FOR A—400 TO O STEP -1:SOUND 1,A,1: 
NEXT A 

1040 FOR C-l TO 8:FOR F=1 TO 5 

1050 N=M(C,F):IF N=0 OR N==l THEN PEN# 1,2 

1060 IF N=2 THEN PEN#1,3 

1070 GOSUB 980 

1080 SOUND 1,100,5 

1090 FOR N=1 TO 50:NEXT N 

1100 NEXT F:NEXT C 

1110 PRINT #2,” *** GAME OVER ***" 

1120 FOR A—1 TO 5000:NEXT A:RUN 260 
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10 REM ******* RECOGIDA ******* 

30 REM * ANGEL GARCIA DELGADO * 

40 ' 

50 REM ******* RECOGIDA ******* 

60 ' 

70 ■ 

80 MODE O 

90 INK O, O s INK 1,26: INK 2,7: INK 3,18 
100 PAPER O:BORDEE O 
110 PRINT CHE$<22)+CHR#< 1 > ; 

120 LOCATE 7,12 
130 PRINT "RECOGIDA" 

1 40 PRINT CHE* <22) i-CHRT (O) ; 

150 INK 2,7,0 ; INK 3,O,18 

160 POR a--.1. TO 300s SOIJND 1 , a , 1 , 15: NEXT a 
170 INK 2,18,7:1NK 3,7,18 

180 POR a=300 TO 1 STEP ~2:S0UND l,a,l:S 
OUND 2,a*2,1:NEXT a 
.190 I NK 2,7: I NK 3 , 18 
200 FOR a== 1 TO 500; NEXT a 

210 FOR a=0 TO 30;PRINT:FOR b=l TO 50:NE 
XT b;NEXT a 
220 MODE 1 
230 GOTO 300 

240 PR I NT TAB < 20-LEN (a*) /2) : FOR a= 1 TO L 
EN(ai) 

250 bÍ=MIDf<aí,a,1):PRINT b$;:IF b$<>" " 
THEN PRINT CHRi(7); 

260 NEXT a 

270 PRINT:PRINT:FOR a«l TO 200:NEXT a:RE 

TURN 

280 ' 

290 ' 

300 REM *** INICIO DEL PROGRAMA *** 

310 ' 

320 ' 




La época de la cose¬ 
cha ha llegado. Los pe¬ 
rales han dado su fruto 
y los comerciantes es¬ 
peran impacientes la lle¬ 
gada de las primeras re¬ 
mesas de peras. 

Si deseas que la com¬ 
petencia no te pise el 
terreno, tendrás que re¬ 
coger todas las peras de 
la pantalla y llevarlas al 
camión antes de que és¬ 
te se marche (cuando el 
tiempo sea cero). 

Si consigues mante¬ 
ner el negocio, la cose¬ 
cha de cada año será 
más próspera y tendrás 
que recoger más peras 
en menos tiempo. 

Comentario 
del programa 

RECOGIDA, es un 
programa donde el ele¬ 
mento de atracción fun¬ 
damental es la velocidad 
de su desarrollo. El juga¬ 
dor ha de recoger las pe¬ 
ras de la pantalla en un 
tiempo límite. La dificul- 
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tad se incrementa a me¬ 
dida que se completa 
una pantalla. 

10-270. Presentación. 
Este bloque incluye: 

— preparación de la 
pantalla en MODO 0. 20 
columnas de ancho de 
impresión y uso de 16 
colores. 

— Impresión del título. 

— Efectos de color y 
sonido. 

— Borrador del título 
con desplazamiento de 
pantalla. 

280-430. Instruccio¬ 
nes. Realizadas en el 
MODO 1, con el empleo 
de una rutina de centra¬ 
do. La pausa de la línea 
430 nos permite leer las 
instrucciones. 

440-560. Inicialización 
del juego. Las variables 
de la fase, los puntos y 
el tiempo se cargan con 
su valor. Se dibuja el es¬ 
cenario, se imprimen los 
marcadores y se crea la 
ventana donde se de¬ 
sarrollará la acción. 

570-600. Se inicializan 
las fases. Se sitúan las 
peras. El tiempo toma el 
valor máximo y las coor¬ 
denadas son puestas en 
la posición de salida. 

610-730. Bucle princi¬ 
pal. Se lee el teclado, 
actuando en conse¬ 
cuencia. Borramos 
nuestro muñeco. Obte¬ 
nemos el código del ca¬ 
rácter de la posición 
donde se va a imprimir y 
vemos si se trata de una 
pera, gracias al código 
ASCII = 160, luego com¬ 
probamos si tenemos ya 
todas las peras para pa¬ 
sar de fase. Imprimimos 


i * 




330 A*= " < < REC'OB I DA > > " :: SOS! 10 240 
,540 PRÍNT :A$=“RECOGE LAS PERAS DEL. HUERV 
O PARA":BOSUB 240 

350 A$="CARGARLAS EN EL CAMION, AÑILO DE. 
QUE":GOSUB 240 

360 Ai— "ESTE- SE MARCHE. ": BOSUB 240 

370 PEINTs "CONTROLES DEL. JUEGO: " ; 0QSU 

B 240 

380 A$« M Q. ARRIBA":BOSUB 24o 


BU 




390 

Ai-"A. 

ABAJO":GOSUB 240 



400 

Ai-~ ,, !.G 

I 7 Qt i 

I EL:DA" í G¡ ipil. IB 240 



4 i O 

A-i-- " P, 

uE.RE 

CHA":UUSUB 2 40 



420 

PRIN1: 

Ai-- "P 

ULSA -S- PARA LUPE-ZAR" 



SUS 

240 





430 

IF- INK 

EY <60 

) < >0 1 HEN GD I O 430 



440 

P=0: T== 

250: F 

n ¡ 

m- 

m 

w 

450 

MODE 1 





460 

INK O, 

0: I NK 

1,26 s JNK 2,9:INK 3,24 

ai 


470 

BORDER 

0: PA 

PER 0 

. 

m 

f 

480 

PEN 1 





490 

WINDOW 

1,40 

, 7,25 



500 

GOSUB 

990 " G 

OSUB 1090 

' í 

’w 

510 

PR .1 Ni 

# 1 , " 

PUNTOS:";FAB<20);" 



EMPC 

: " 





520 

Ai="": 

Bi=" " 



r :r. 


530 FOR A=1 TO 40 

540 A*"»A*-t-CHR# f i 66) : B$=sB$+CHR$ < 165) 

550 IMEXT A 

560 PRI NT # 1 , Ai-: PRI NT # 1 , Bi; " " ; CHE i (16 

1) ; CHE* (162) ; CHE* < 163) ; CHEi < i 64) :: PR I NT i! 
1 , Ai : 


s¡ 0 * 

♦ 

570 

CLS:GOSU 

B 

88 

0 








580 

PEN 3 









* 


590 

T=300 









. 

• 

600 

X=5:Y—5: 

XB 

—5 

: YB 

-5: R- 

a 0 




«g 9 


610 

IF INKEY 

(6 

7) 

«0 

THEN 

X 

~ X — 1:IF 

X< 1 

THE 



N X-~ 

1 










m 

620 

IF INKEY 

(6 

9) 

=0 

THEN 

X 

= X + 1: IF 

X > 1 

8 TH 

m ¿2 


EN X 

= 18 









- ¿JE 


630 

IF INKEY 

<3 

4) 

O 

1 HEN 

Y 

=Y—1 : IF 

Y< 1 

THE 

* 

m 

N Y= 

1 









. *1 


640 

IF INKEY 

<2 

7) 

=0 

t HEN 

Y 

~Y-H : IF 

Y >4 

0 TH 

* # 


EN Y 

=-40 










• 

650 

LOCATE Y 

p 

XB 

:PR INT" 

II 




* 41.5: 


660 

LOCATE Y 

1 ^ 

: C 

ALE 

3 0Q< 

>0 

:C=PEEK 

< 299 

99) 

« «2: 


6 70 

IF C=160 

THE 

N R 

-R+1 

s 

OI. INI.) 1 , 

500, 

3: F- 


P+5: LOCATE #1,11,1: PR INT # J. , P 
680 IF R>9+5*F THEN R=0:F=F+1:P=P+i:FOR 
A--1 TO 1000 STEP 3: SOUND .1. , A , 1 : NEXT A: 00 
TO 570 

690 PRINT CHRi< 248+RND*3) 

700 T=T~1:LOCATE #1,31,1:PRINT#1,USING " 
###";T 

710 IF T<1 THEN GOTO 740 
720 XB=X:YB=Y 
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730 GOTO 610 

740 " 11 +CHRP (161) +ÜHR$ < 162) +CHK$ < 163 > | 

+CHRT(164) 

750 POR A»3 TO 36 

760 LOCALE #1,A,5sPRINT 41,BT J 

770 SOUND 1,1000,1sFOR B=1 TO 50:NEXT B 
780 ME X T A 
790 MODE O 
800 PEM 2 

810 LOCATE 6,7:PR I NT"SAME OVER" 

820 PEM 1 

830 LOCATE 5,12:PRINi"PUNTOS:";US1NB "## ¡ 
## " ; P 

840 INK 2,11,0 

850 FOR A«1 TO 4000 STEP 10:SOUND 1,A,1: ¡ 
ME X T A 

860 FOR A=1 TO 10000:MEXT A 

870 ROM 220 

880 FOR A~-1 TO 10+5*F 

890 X1 +1 NT < 17*RND) : Y= 1 +1 NT < RND*39) 

900 LOCATE Y,X:CALI 30000:IF PEEK<29999) 

< >32 THEN GOTO 890 
910 PEM 2:PR 1 NT CHRT«160) 

920 PRINT CHRt<7>; 

930 NEXT A 
940 RETURM 
950 EMD 
960 ' 

970 ' 

980 ' 

990 EEM ** CODE SCREEMT **■ 

1000 ' 

1010 ' 

1020 DATA 205,96,187,50,47,117,201 
1030 RESTORE 1020 

1040 FOR a <=30000 TO 30006:READ b:POKE a,¡ 
b: NEXT a 
1050 RETURN 
1060 ' 

1070 REM ****************** 

1080 ' 

1090 SYMBOL 
1100 SYMBOL 
, 56 

1110 SYMBOL 
91 ,27 

1.120 SYMBOL 
1130 SYMBOL 
216 

1140 SYMBOL 
93,28 

1150 SYMBOL 
1160 SYMBOL 
1170 RETURN 


AFTER 160 

160,96,144,56,56,124,124,124 

161.255.128.128.128.128.255, 

162,255,O,O,O,O,255,64,O 
163,251,11,11,11,11 ,25.1. ,222, 

164.224.176.152.143.255.255, 

165 , 0,0,0, O, .1 26,63,0 , O 
166,O,O,O,255,255,O,O,O 


# 


P 


nuestro muñeco, anima¬ 
do con los caracteres in¬ 
cluidos en el banco grá¬ 
fico original. 

Luego decrementa- 
mos en 1 el tiempo, lo 
imprimimos y compro- 


• 1 

bamos si es cero. Si lo 

1 

es se salta al final, si no 

I 

se repite el bucle. 

út ® 

740-870. El camión se 

tF Tí 

■L 

marcha. Se imprime el 

ja, ^ 

mensaje de final y tras 

m 

una pausa se lanza de 


nuevo el programa. 


880-960. Subrutina 
que pinta las peras en 
pantalla. Calcula unas 
coordenadas al azar. 
Comprueba si hay pera. 
Si existe se calculan de 
nuevo las coordenadas 



y se repite el proceso, si¬ 
no, se dibuja la pera. 

970-1060. Subrutina 
que introduce en la me¬ 
moria los DATAS de la 
rutina en C/M que nos 
permite averiguar el ca¬ 
rácter que hay en la po¬ 
sición del cursor. 

1070-1170. Subrutina 
de redefinición de gráfi¬ 
cos. Aquí se cambian 
varios gráficos por las 
definiciones del camión, 
las líneas de la carretera 
y la pera. 
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MORT 


Fuerzas de tanques enemigos 
se dirigen hacia el punto estra 
legico que defiendes, “las rnon 
tañas CABRA LOCA ', Has de 
impedir que franqueen este obs 
táculo rocoso. Para hacerlo dis¬ 
pones de un mortero de gran al- 
cancer que te permitirá destruir 
los tanques. 

Debes dar el ángulo y el im¬ 
pulso correctos para fijar la tra 
yectoria que debe seguir la bo 
la. El impulso no debe sobrepa¬ 
sar la cantidad indicada en el 
marcador de impulso. Si éste lle¬ 
ga a ser cero, nuestro mortero 
quedará inutilizado y el enemigo 
tomará nuestra posición. 



#: 



m 

m 


f 



10 REM ******* MORTERO ******** 

20 REM ** ANGEL GARCIA DELGADO ** 

30 REM ***** MUNDO AMSTRAD ****** 

40 REM 
50 MODE O 

60 INK 0,0:INK 1,26:INK 2,7:INK 3,18 
70 PAPER O:BURDER O 


Comentario del programa 

Se trata de un programa don¬ 
de se han dejado apartadas las 
rutinas de acción para pasar a 
procesar una serie de cálculos, 
que decidirán la trayectoria pa 
rabólica que describirá nuestro 
obús. 

10-210. Presentación. Se activa 
el MODO O de pantalla, se les 
da el color a las tintas y se di¬ 
buja un fondo estrellado. A con¬ 
tinuación, en modo transparen¬ 
te para conservar las estrellas del 
fondo al imprimir el título. Tras 
unos efectos sonoros, se limpia 
la pantalla para dar paso a las 
instrucciones. 

220-400. Con la pantalla en 
MODO 1, son impresas las ins¬ 
trucciones con una rutina de 
centrado. V se espera la pulsa¬ 
ción de la tecla "S" para con¬ 
tinuar. 

410 490. Se redefinen los cua 
tro gráficos que nos son ne¬ 
cesarios. 

500-970. Bucle principal del 
juego. Incluye la inicialización de 
las variables de impulso IM y los 
aciertos AC. Se establecen los 
colores de las tintas y se pasa de 
nuevo a MODO 0. Luego se de¬ 
fine una función que emplea un 
parámetro, y que genera un nú¬ 
mero al azar entero de 0-(n-1), 
donde "n" es el valor del pará¬ 
metro introducido. El origen de 


.* £ 

J * 

* 

- 

É 

* #§ 

K ** 

• i 

« * f 

■ 

T,::: 

f* 

*# 

i 






•ate ¿fe. 


80 FOB A=1 TO 100 

90 PLOT RND*640,RND*400,RND*15 

100 NEXT 

11O PRINT CHRT(22)+CHR*<1); 

120 LOCATE 6,12 
130 PRINT " MORTERO" 

140 PRINT CHRÍ <22 > +CHR$<O); 

150 INK 2,7,O:INK 3,0,18 

160 POR a=l TO 300: SÜIJND 1 , a , 1 , 15: NEXT a 

170 INK 2,18,7:1NK 3,7,18 

180 POR a=300 TO 1 STEP -2sSQUND l,a,l:S 

OIJND 2, a *2,1: NEXT a 

190 INK 2,7:INK 3,18 

200 FOR a-1 TO 500:NEXT a 

210 POR a—O TO 50:PRINT:FOR b=l TO 50: NE 
XT b:NEXT a 
220 MODE 1 
230 GOTO 290 

240 PRINT TAB (20-LEN (af) /2) : FOR a==i TO L. 
EN(aT) 

I 250 b*=MIDT <af,a,1);PRI N I b*;:IP b$< >" " 
THEN SOIJND 1,A, 1,15 
I 260 NEXT a 

| 270 PRINT:PRINT:FOR a=l TO 200:NEXT a:RE 
| TURN 
I 280 ' 

1 290 REM *** INICIO DEL PROGRAMA *** 

¡ 300 ' 

I 310 A$="<< MORTERO >>":GOSUB 240 
I 320 PRINT:A$="DESTRUYE UN TANQUE QUE SE 
j ENCUENTRA":GOSUB 240 

| 330 AT--"Al.. OTRO LADO DE LA CADENA DE MON 
| TES.":GOSUB 240 

1- 
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340 PRINT: A$=" TU PUEDES REGULAR EL. ANGUL. 
O DE TIRO":GOSUB 240 

350 Aí--"Y EL IMPULSO (VELOCIDAD INICIAL.) 
":GOSUB 240 

360 A$= "DE IU UNIDAD AET IL.L ERA" : GOSUB 24 


O 

370 PRINT: Ai--"POR CADA T ANQUE DESTRUIDO 
SE TE":GOSUB 240 

380 Ai-"AUMENTARA EN 100 UNIDADES EL INP 
UL..SO" : GOSUB 240 

390 PRI NT:Ai«"PULSA -S- PARA EMPEZAR":60 


SUB 240 

400 IF INKEY (60)00 THEN 400 
410 ' 

420 ' * REDEFINICION GRAFICOS * 

430 ' 

440 SYMBOL AFTER 32 

450 SYMBOL 91,1,7,127,7,127,255,255,127 
460 SYMBOL 93,128,224,224,224,254,255,25 


470 SYMBOL 92,218,173,189,81,127,103,188 
,24 

480 SYMBOL 64,129,66,36,152,104,102,233, 

150 

490 ' 

500 ' * INICIAl...IZACION * 

5 1 0 ' 


520 IM”300:AC-O 

530 INK 0,23:PAPER O:BOEDER 23:INK 1,0:1 
NK 2,9:INK 3,2:INK 4,3:INK 5,26:PEN 1:MO 
DE O 

540 DEF FN R < X ) =-1 NT (END*X ) : OR161N O , O 
550 LOCATE 1,22:PEN 4:PEINT"@" 

560 FOR A”O TO 47:PL0T O,A,2 
570 DEAWE 650,0 
580 NEXT A 

590 WINDOW #2,1,20,24,25:PAPER 42,2:PEN 
#2,5 

600 WINDOW #1,1,20,1,2:PEN #1,5 
610 GÜSLJB 1040 
620 FOR Z==250 TO 350 STEP 4 
630 PL.OT Z , 47: DRAWR O , FN R (100) 

640 NEXT Z 

650 X~19—FN R<8) 

660 LOCATE X,22:PEN 3:PEINT"E 3" 

670 IF IM<1 THEN GOTO 1010 
680 CALE &BB03 

690 CL..S #2: INPUT #2,"ANGULO: " ,ANG 

700 INPIJT #2, " INPUL.SO: " , I : IF ICO OR I>I 

M THEN SOIJND 1,100: GOTO 700 

710 IM—IM--I 

720 X—1 :Y—200 

730 ENT 1,10,1,1,20,-1,1 

740 DEG: SOIJND 1,500,30,15,0,1,31 

750 VX---I *COS (ANG) : VY= I *S IN (ANG) 



coordenadas gráficas se sitúa en 
la coordenada 0,0 (esquina infe 
rior izquierda). Se dibuja nuestro 
cañón, el suelo, se imprimen los 
mamadores, definiendo previa 
mente un par de ventanas (la se- 
quiida usada para la entrada de 
nuestros datos). Luego de for¬ 
ma aleatoria son dibujadas las 
montañas, y es situado el tan 
que enemigo. 

Entramos ya realmente en lo 
que es el bucle del juego (linea 
670). La primera comprobación 
liu. 1 hacemos es s< queda impul 
so. Si este es cero su salta al (i 
nal. Sino, limpiamos el buffer 
riel teclado, y preguntamos el 
ángulo y el impulso. El ángulo 
puede ser cualquier numero, pe 
ro el impulso esta limitado entre 
cero y el impulso que tenemos, 
de forma que si se introduce un 
valor erróneo, un sonido lo indi 
ca y se vuelve a hacer la pre 
gunta. 

Se resta el impulso elegido del 
total. Se inicializan las coorde 
nadas del obús, y se fija la en 
tonación 1. Con DEG pasamos 
los cálculos a grados (en vez de 
radianes). Sonido de lanzamien¬ 
to. 

A partir de la línea 750 es don 
de se realiza el movimiento del 




obús con sus correspondientes 
comprobaciones de choque. 

Lo primero que se hace es 
empleando la trigonometría, cal¬ 
cular los vectores incremento 
para X e Y. Se entra en el bucle 
de movimiento, se borra la po¬ 
sición anterior del obús, y en las 
líneas 780 y 790 se calcula en 
función de T (simulacro de tiem¬ 
po) la coordenada y empleando 
la fórmula del tiro parabólico. En 
la 800 la variable TI toma el va¬ 
lor del color del punto donde se 
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va a imprimir el obús, se hace 
un sonido, una pausa y se pasa 
a las comprobaciones de cho 
que. Si TI = 2 se choca contra el 
paisaje, y se salta a la 880. 

Si TI - 3 el choque es con el 



tanque y el salto es a la línea 

| 


980. Luego el NEXT continúa 

i 


todo el proceso. 


* 

En la 880 se encuentra la ru- 



tina de explosión, que dentro de 

f-¡| 

# 

su sencillez produce un efecto 


balante bueno. Lo que hago es 

i 


activar el modo transparente y el 

ü 


modo gráfico con TAG y se fija 

m 

el origen de coordenadas en la 



posición. A continuación en un 



bucle se imprimen con desplaza- 


$ 

mientos al azar, asteriscos, que 

•fl 


al irse incrementando el valor del 

- # 


bucle, cada vez alcazan un área 



más grande. 

- 

m 




En la linea 980, continúa el 

■ 1¡f 


programa al acertar al enemigo. 

’ # 
" fe 


Sonido de acierto. Se incremen- 



ta el contador de impactos, se 



imprimen los marcadores, se su- 


m 

ma 100 al impulso y se dibuja la 



explosión del tanque. 




% 

m 

1000 1020. Sonidos de final y 



salto a GAME OVER. 

* #! 




# 



1030 1050. Subrutina de im¬ 
presión de los marcadores. 


1066-1180. GAME OVER. El 
juego finaliza, se ofrece la pun¬ 
tuación y la opción de empezar 
de nuevo a acabar, reinicializar 
el ordenador. (Ojo con esta par¬ 
te del programa, grábalo antes 
de usar esta opción o perderás 
el programa). 
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760 FOR 2 «8 fü 650 STEP 4 
770 PLOT X,Y,O 
780 T=Z/VX:X=Z+16 
790 Y=55+VY*T~4.9*T*T 
800 T í -~TES f <X , Y) 

810 PLOT X,Y, 1 

820 SOUND 2,ABS < Y*2) ,1,13 

830 FOR V-l TO 30s NEXT V 

840 IF TI=2 THEN GOTO 880:REM — CHOQUE 
CON PAISAJE — 

850 IF TI=3 THEN GOTO 980:REM — 

CON TANQUE — 

£360 IF Y <8 THEN GOTO 880 
870 NEXT Z 
880 ORIGIN X,Y 

890 PRINT CHR* (23) ; CHR* ( 1 ) : TAG: FOR N-“ 1 T 
I O 50 

| 900 MOVE RND*N,RND*N:PRINT"*"; 

I 91O MOVE -~RND*N,RND*N:PRINT"*"; 

¡ 920 REM MOVE -RND*N,-RND*N:PRINT "*"5 
930 REM MOVE RND*N,-RND*N:PRINT"*"; 

| 940 SOUND 3,A*5,3,15,0,1,31 
| 950 NEXT N:TAGOFF:PRINT CHRT <23);CHR*<O) 

¡ 960 FOR N-1 TO 2000:NEXT N 
¡ 970 GOTO 530 

¡ 980 SOUND 3,50,30,15,0,1:AC--AC-+1:GOSUB 1 
I 040 

¡ 990 IM--IM+100 
| 1000 GOTO 880 

I 1010 FOR A=1 TO 20:SOUND 3,50,30,15,0,1:. 
¡ NEXT A 

I 1020 GOTO 1050 
I 1030 LOCATE 1,1:END 

j 1040 CL..S # 1: PR I NT# 1 , " I MPUL..SO: " ; US ING " 

I ###";IMsPRINT#1,"IMPACTOS: ";USING "###" 

| :AC:RETURN 
I 1050 REM 

I 1060 ' 

J 1070 REM *** GAME OVER *** 

j 1080 ' 

l 1090 FOR A=1 TO 20:FOR B=1G0 TO 200 STEP 
¡ A:SOUND 1,B,1,15,0,0,31:NEXT B:NEXT A 
| 1100 INK O,0:1NK 1,26:INK 2,15,0:PAPER O 
1 rBORDER 0:PEN 1:MODE O 

I 1110 PEN 2:LOCATE 6,7:PRINT"GAME OVER" 

I 1120 PEN 1:LOCATE 4,12:PRINT"PUNTOS:";US 
I IMG "######" 5 P 

!1130 PEN 3:INK 3,15:LOCATE 5,17:PRINT "O 
ITRA? <S/N)" 

!1140 FOR A-1 TO 50:A$=INKEYT:NEXT A 
j 1150 PEN 1 

¡ 1160 IF INKEY <60)—O THEN RUN 220 
I 1170 IF INKEY <46> =0 THEN CALI. O 
!1180 GOTO 1160 
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ARCHIVO NUMERICO 


i O «■•I**#**'»#**#***********'»*'*******# 


20 ' ** ** 

30 ' ** ARCHIVO NUMERICO ** 

40 ' ** ** 

SO ’ ** ** 


60 IHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHt-** 

70 ' 

80 ' 

90 ' «Ti******************************* 
100 ' MUNDO-AMSTRAD 

110 - *#***■»***■*•** ******* * ************* 

120 ' 

130 ’ 

140 ' PRESENTACION 

150 ' 
l 60 

170 MODE O:BOEDER i i LOCATE l,12tPEN 3:PE 
INT" ARCHIVA NUMEROS "sFOR t=10 TO 50 
O STEP 10: SOI.IND 5,t, lOsNEXT 
180 ' 

190 • COMENTARIOS FREI [MINARES 
200 ' 

210 MODE 1:PEN 1:PRINT;PRINT:PHINT" E 
n este archiva números podras “ 

220 PRINT " almacenar tantas cantidad*? 


s come 
230 PRINT 
u arde-" 

240 PRINT 
pueden" 

250 PRINT 
ada una, " 

260 PRINT 
al mace- " 

270 PRINT 
vi ene" 

280 PRINT 
e 30 datos" 
290 PRINT 
odi f i c. ados " 
300 PRINT 
erise antes" 
510 PRINT 
e reí izar cual 
320 PRI NT 


te permita la memoria de t 
rtador. Estas cantidades no 
tener mas de seis cifras e 
es decir, el numero mayor 
nable es 999999. El archivo 
" presentado en paginas d 
" los cuales pueden ser m 
" tantas veces como se pr 
" e incluso después d 
quier tipo de cal cu 
" Como e j 
puesto una esta 
si bien tu pued 
PULSA UNA TEC 


lo con ellos." 

330 PRINT :PRINT 
emplo de calculo hemos 
340 PRINT 

dística de errores," 

350 PRINT 

es introducir otros." 

360 LOCATE i,22:PRINT" 

LA PARA COMENZAR" 

370 IP INKEY*»"" THEN 370 ELSECLS 


380 

390 ’ INTRODUCCION DEL NUMERO DE DATOS 
400 ' 

410 PRINT "NUM. DE DATOS A INTRODUCIR 


420 xj=28:y j~l:bu=0:GOSUB 1330 

430 IF VAL (ají) =0 OR VAL (a#) >7500 THEN 1.0 

CATE 2B,1SPRINT " ";SPRINT CHR* 

(7);sGOTO 420 

440 ' 

450 ’ INTRODUCCION DE DATOS NUMERICOS 
460 ' 



Este es un programa de 
utilidad que permite almace¬ 
nar en tu Amstrad hasta 
7.500 números, presentados 
en pantalla en orden y en 
columnas para su compro¬ 
bación y control. 

Estos datos numéricos 
son almacenados en una 
matriz y pueden ser recupe¬ 
rados para realizar con ellos 
cualquier tipo de operacio¬ 
nes. Como ejemplo hemos 
introducido un cálculo esta¬ 
dístico de errores aunque 
podría ser cualquier otra 
operación definida en BA¬ 
SIC por el usuario. Los nú¬ 
meros contenidos en este 
archivo pueden ser modifi¬ 
cados en cualquier momen¬ 
to con sólo acudir a la pági¬ 
na que los contiene y teclear 
su número de orden, des¬ 
pués de haber pulsado la le¬ 
tra "M". La modificación se 
aloja en el mismo lugar que 
ocupaba el dato antiguo. 

Explicación 
del listado 

En la línea 170 tenemos 
un pequeñísima rutina que 



f'.'íit - ?4R« ilC 

mt ■ m tu a? 

«- 





se encarga de poner en pan¬ 
talla, durante un corto espa¬ 
cio de tiempo, el rótulo que 
da título al programa. 

Entre las líneas 210 y 370 
se encuentran las instruc¬ 
ciones que aparecen en la 
pantalla antes de comenzar 
a introducir datos para que 
sepamos como hacerlo. 

Entre las líneas 410 y 430 
se solicita el número total de 
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datos que va a contener 
nuestro archivo para dimen- 
sionar la matriz que los con¬ 
tenga (línea 470). 

Las líneas comprendidas 
entre la 480 y la 540 gestio¬ 
nan la introducción de cada 
dato hasta completar el nú¬ 
mero que hayamos determi¬ 
nado como final del archivo 
(línea 530). A partir de la lí¬ 
nea 580 tenemos la rutina de 
salto de página que se en¬ 
carga de presentar en pan¬ 
talla los números en páginas 
de 30 datos (líneas 620-700) 
y en caso de que no quepan 
todos en una sola página la 
línea 700 se encarga de lla¬ 
mar a la rutina de comandos 
de supermisión. Cuando 
nuestro archivo alcanza el 
último dato, la línea 710 ha¬ 
rá aparecer un mensaje ad¬ 
virtiéndonos que no hay 
más datos, asimismo las lí¬ 
neas 600 y 610 se encargan 
de bloquear el avance o el 
retroceso de páginas cuan¬ 
do estamos en la primera o 
en la última respectivamen¬ 
te. La rutina de comandos 
de supervisión comienza en 
la línea 760 y se encarga pri¬ 
meramente de mostrar en 
pantalla las distintas opcio¬ 
nes que podemos utilizar (lí¬ 
neas 760-800) y posterior¬ 
mente hace que el programa 
salte a las subrutinas que 
gestionen cada opción (lí¬ 
neas 800-850). En la línea 
890 comienza la rutina de 
modificaciones que se en¬ 
carga de hacer correcciones 
en los datos una vez intro¬ 
ducidos y presentados en 
pantalla: la línea 900 nos pi¬ 
de el número del dato que 
queremos modificar, y si és¬ 
te está en la pantalla, da pa¬ 
so a la línea 910 que nos pre¬ 
senta el contenido de dicho 
dato y la 920 nos pide el 
nuevo valor a introducir. 

Una vez que indicamos a 
nuestro ordenador que los 
datos son correctos, pulsan¬ 
do la letra "C", el programa 


i 

I 



M « 



' ♦ 

* #■;. 

* I 

' 

* 

" *1 

:«• Mí 
I 

: 

* é 


# 


9 # á 

* 



I 

I 

I 

L 


470 d- VAI (¿iP > : DIM a(d> 

4RO x i-t 6: y i ■-?.s bu=0: FOft I--1 TO () 

490 PRINT:PRINT "DATO NUMERO" ; I " ; 

500 GOSUB 1330 
510 a (i >®VAI.(aP> 

520 yi=yi>l 

530 ir I=D THEN PRINT:PRI NT:PRINT"TODOS 
LOS DATOS HAN SIDO INTRODUCIDOS":PRINT C 
HRP<7);:FOR H=1 TO 800:NEXT H 
540 NEXT 
550 ' 

560 ’ SALTO DE PAGINA 

570 ‘ 

580 CLB 
590 NP-1 

600 1P NP«*0 THEN PRI NT" ***** NO HAY MEN 

OS PAGIÑAS ***#*"¡NP=NP+1 

610 IF NP*30-D>=30 THEN PRINT"***** NO H 

AY MAS PAGINAS ***»*" S NP=NP-1 

620 7= <NP-1)*30 

630 FOR I=Zd TO D 

640 LOCATE 1,2:PRINT“NUM. DE DATOS ";D 
650 X=INT<(<1-6)710) MOD 30)*12-(NP-1)#3 
6 

660 IF X<O THEN X-0 

670 Y-- < ( I -1) MOD 10) +4 

680 LOCATE 73,2:PRINT"PAG. NUM."sNP 

690 LOCATE >¡ ■*■ 1 , y: PRINT i ; " ; a < I) ; : b*=ST 

R*(a(i> > SPRINT STRING*(7-LEN<b*>,32) 

700 IF I=Z+30 THEN GOTO 760 

710 IF X—1> THEN LOCATE 5, 16: PR INT"*** FI 

N DE LOS DATOS ***" 

720 NEXT 
730 ' 

740 • COMANDOS DE SUPERVISION 

750 

760 LOCATE 1,16:PRINT"PULSE + PARA PAG. 
SIGUIENTE 

770 LOCATE 1,18:PRINT"PULSE - PARA PAG. 
ANTERIOR" 

780 LOCATE 1,20:PRINT"PULSE M PARA MODIF 
I CAR DATOS" ; : PRINT STRINGP(12,32) ; 

790 LOCATE 1,22:PRINT"PULSE C SI LOS DAT 
OS SON CORRECTOS 
800 A*~INLEYI 

810 IF AP-*" +" THEN CLSs PRINT CHR$<7>;:NP 
=NP+1: GOTO 600 

820 IF A*®"-" THEN CLB:PRINT CHRP <7);:NP 
=NP~1: GOTO 600 

830 IF ft$="M" OR aP“"m" THEN PRINT CHRP < 
7)S!GOTO 890 

840 IF AP="C" OR ñP="c" THEN CLSsPRINT C 
HRP <7>;:GOTO 970 
850 GOTO 800 
860 • 

870 ' RUTINA DE MODIFICACIONES 
880 - 

890 LOCATE 1,22SPRINT STRING*(36,32) 

900 LOCATE 1,20:INPUT "INDIQUE NIJM. DE D 
ATO A MODIFICAR";IsIF I>NP*30 OR I<NP*30 
-29 OR I>D THEN PRINT CHRP(7)LOCATE 1, 
22 s PRI NT "El. DATO NUM. "si* "NO ESTA EN PAN 
TALLA":FOR V=1 TO 200:PRINT CHRP < 7);:NEX 
T:GOTO 760 

910 PRINT CHRP < 7 > ; :LOCATE 1,20: PRINT"EL 
DATO NR";I;"CONTIENE EL VALOR ";A(I);:PR 
INT STRINBP (4,32) 
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920 LOCATE. I..22S INPUT "INTRUDUI CA El NUE 
VO VALOR IF A<I)>999999 THEN PRIN 

r C HR* < 7) : : L OCA TE 1 ,.; 2: PRIN T STRIN 6 *<4<>, 
32 )5 8 GOTO 920 
930 GOTO 600 
940 ’ 

950 SALTO A LISTADOS O A CÁLCULOS 

960 ' 

97o CLSsPRINT CMR*<7> 5 :PRINT "QUE CAL.CUL 
O REALIZARA CON SUS DATOS:PRINT:PRINT" 
-PULSE R PARA REVISAR DATOS " 

900 PRINT:PRINT"-PULSE G PARA ESTADISTIC 
A DE ERRORES" 

990 INKEYT 

IODO IF B*="G" OR b*="q" THEN CLBsGOTO 1 
060 

ÍOIO IP "R" OR b*="r" THEN CLS: BOTO 6 
00 

1020 GOTO 990 
1030 ' 

1040 ■ CALCULO DE ERRORES 

1050 ' 

1060 PRINT CHR*(7):PRINT:PRINT"*** CALCO 
LO ESTADISTICO DE ERRORES ***" 

1070 POR 1=1 TO d 
1080 s=s+a(i) 

1090 MEXT 
1100 m=s/d 
1110 FOR i=l TO d 
1120 s 2 =s 2 + < a <i> —h) •"•2 
1130 NEXT 

1140 e=SQR<s2/<d*<d — 1))) 

1150 LOCATE 3,6:PRINT"MEDIA*"jm 

1160 LOCATE 3,9:PRINT"ERROR ABSOLUTO*";e 

1170 er=e/m 

1180 LOCATE 3,12: PR I NT " ERROR REI.. ATI VO* " ; 
er 

1190 te=er /100 

1200 LOCATE 3,15:PRINT" 7. DE ERROR--"; te 
1210 ' 

1220 'NUEVOS CALCULOS O FIN DE PROGRAMA 
1230 ' 

1240 LOCATE 1,20:PRINT"DESEA REALIZAR AL. 
GUN CALCULO MAS (S/N)" 

1250 A**INKEY* 

1260 IF a*="s" OR a*=" 8 " THEN s*0:s2*0:C 
LS:GOTO 970 

1270 IF a*“"n" OR a*="N" THEN 1290 
1280 GOTO 1250 
1290 CLSsEND 
1300 ' 

1310 ' RUTINA DE INTRODUCCION 
1320 ' 

1330 >¡u=x j: yu=y j : bu*0: ai --" " 

1340 x*=INKEYÍ: IF ?:»="" THEN 1340 
1350 IF x$*CHR$ <13) OR bu>5 THEN LOCATE 
XU+1 , yu: PRI NT " " ; : RFTIJRN 
1360 IF X$=CHR$ < 127) AND bu>0 THEN hh=L..E 
N<a*) : a**LEFT* < a* , hh-1) : bu=bu—1: LOCATE >: 
u,yu:PRINT". ":xu=xu-l:GOTO 1340 ELSE IF 
x **CHR$<127) THEN 1340 
1370 a*=a*+x*:xu*xu+1:bu*bu+l;LOCATE xu, 
yu:PRINT x*;" 

1380 GOTO 1340 







salta al menú de cálculo (lí¬ 
nea 970) donde únicamente 
hemos introducido las op¬ 
ciones regresar a comproba¬ 
ción de datos o realizar un 
cálculo estadístico de erro¬ 
res (líneas 1000 y 1010). 


En la línea 1060 comienza 
el cálculo de errores y fina¬ 
liza en la línea 1200. Como 
ya hemos dicho pueden rea¬ 
lizarse otros tipos de opera¬ 
ciones con sólo incluir en el 
programa unas líneas seme¬ 
jantes a la (980 y 1000) que 
hagan saltar la ejecución del 
listado a cualquier otra ruti¬ 
na que proqramemos en 
BASIC. 


Entre las líneas 1240 y 
1290 tenemos las opciones 
de fin de programa o regre¬ 
so a nuevos cálculos. 



Finalmente entre las lí¬ 
neas 1330 y 1380 se encuen¬ 
tra una rutina de introduc¬ 
ción o captación de datos 
desde el teclado, que en ba¬ 
se a unas coordenadas da- 



*». 

k 

p 



das "XJ" e "YJ" presenta 
en pantalla cada tecla que 
pulsemos guardando el con¬ 
tenido de la cadena impre¬ 
sa, en la variable "a$" y re¬ 
gresando a la línea siguien¬ 
te a la que fue llamada dicha 
rutina de impresión. Como 
vereis ésta rutina puede ser 
utilizada en otros programas 
en los que necesitéis captar 
datos desde el teclado. 
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PROXIMAS 


CORREO DEL 
LECTOR 


Consultas, dudas, problemas 
sugerencias, etc. de los lectores 
que estén relacionados con el 
sistema AMSTRAD, serán 
publicadas y respondidas en esta 
sección. 



SECCIONES 


CLUB 


En este apartado daremos 
cabida a todos los anuncios 
entre particulares o clubs de 
informática que estén 
interesados en cambiar, comprar 
o vender algo, establecer 
contactos, etc. 


Enviad vuestros mensajes: Mundo AMSTRAD, Tomás López, 3 6.° 28009 MADRID 


Del 20 al 27 de Noviembre 








27 FERIA OFICIAL MONOGRAFICA INTERNACIONAL 
DEL EQUIPO DE OFICINA Y DE LA INFORMATICA 


JORNADAS PROFESIONALES DE SIMO d-as 
20.23.24,2b. 26 y 27 En estes días na habra 
taauilla desde las 10.30 hasta las 15 ho'as. En 
este periodo, y oa'a la ent'ada er el reortc. 
sera necesaria la tarjeta de profesional que 
e será facilitada a 1 orese r, !ar su mvifauor 
o al acreditar su identidad 
Congreso internacional sobre Diseño y 
Confort en la Oficina, CIDYC0 87 
Conferencia internacional de informa’, ca 
'87. Jornadas pa r a profesionales. Conferencias 
sobre tecncrog.as especiales CoIoojios socre 
as implicaciones de la sociedad informatizada. 
Horano: de 10,30 a 20 horas SIN INTERRUP¬ 
CION. Domingo de 1C.30 a 15 horas 
p, o h ibida i entrada a menores de 18 anos 


Recinto Ferial de IFEMA en la Casa de Campo - Madrid 


s.i.m.o. 
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Versión para PC y Compatibles 

También para Amstrad, MSX, Spectrum, Spectrum + 3 y Commodore 






Pza. Santa Catalina de los Donados, 3,4 o Deha. 
28013 Madrid. Tel. 241 92 70 / 241 96 82 


Distribuidor en Cataluña 
Discovery Informatic 
Telfs.: (93) 256 49 08 - 09 


Si no lo encuentras en tu distribuidor habitual llámanos: (91) 241 92 70 - 241 96 82 


que no digan 
que no das ni golpe 

Goody tiene un buen plan, pero los grandes planes nunca son 
sencillos, por eso necesita un buen socio como tú, 
experimentado y audaz. 

Esta es tu oportunidad para dar el golpe del Siglo: 







































































